From: Volker Lendecke Date: Tue, 28 Jan 2020 13:46:09 +0000 (+0100) Subject: selftest: Exit skipped daemons on close(STDIN) X-Git-Tag: ldb-2.1.1~229 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f0e0ee274fd6a64b67970c2b3c8dbe64ccb7781;p=thirdparty%2Fsamba.git selftest: Exit skipped daemons on close(STDIN) Without this, teardown_env() will take ages for environments with skipped daemons Signed-off-by: Volker Lendecke Reviewed-by: Andrew Bartlett Autobuild-User(master): Andrew Bartlett Autobuild-Date(master): Wed Jan 29 11:06:53 UTC 2020 on sn-devel-184 --- 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; }