diff options
Diffstat (limited to 'selftest')
| -rw-r--r-- | selftest/target/Samba.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/selftest/target/Samba.pm b/selftest/target/Samba.pm index 216c13f11c1..a908a7ade7c 100644 --- a/selftest/target/Samba.pm +++ b/selftest/target/Samba.pm @@ -10,6 +10,7 @@ use target::Samba3; use target::Samba4; use POSIX; use Cwd qw(abs_path); +use IO::Poll qw(POLLIN); sub new($$$$$) { my ($classname, $bindir, $srcdir, $server_maxtime) = @_; @@ -677,7 +678,9 @@ sub fork_and_exec print("Skip $daemon_ctx->{NAME} received signal $signame"); exit 0; }; - sleep($self->{server_maxtime}); + my $poll = IO::Poll->new(); + $poll->mask($STDIN_READER, POLLIN); + $poll->poll($self->{server_maxtime}); exit 0; } |