stas 02/01/03 20:48:58
Modified: perl-framework/Apache-Test/lib/Apache TestServer.pm
Log:
- use explicit fork for spawning httpd, now works with 1.3 and 2.0
Revision Changes Path
1.48 +10 -1
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.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- TestServer.pm 31 Dec 2001 10:58:22 -0000 1.47
+++ TestServer.pm 4 Jan 2002 04:48:58 -0000 1.48
@@ -433,7 +433,16 @@
}
}
};
- $child_pid = open $child_in_pipe, "|$cmd";
+
+ defined(my $pid = fork) or die "Can't fork: $!";
+ unless ($pid) { # child
+ my $status = system "$cmd";
+ if ($status) {
+ $status = $? >> 8;
+ #error "httpd didn't start! $status";
+ }
+ CORE::exit $status;
+ }
}
while ($old_pid and $old_pid == $self->pid) {
