stas 02/01/05 23:30:31
Modified: perl-framework/Apache-Test/lib/Apache TestServer.pm
Log:
- no need to report the failure at the CHLD sig stage, there should be
only one report which happens at the end, when the return status is
collected
Revision Changes Path
1.51 +1 -0
httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm
Index: TestServer.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- TestServer.pm 6 Jan 2002 06:20:29 -0000 1.50
+++ TestServer.pm 6 Jan 2002 07:30:31 -0000 1.51
@@ -425,6 +425,7 @@
$SIG{CHLD} = sub {
while ((my $child = waitpid(-1, POSIX::WNOHANG())) > 0) {
my $status = $? >> 8;
+ #error "got child exit $status";
if ($status) {
$self->failed_msg("\nserver has died with status
$status");
kill SIGTERM => $$;