dougm 01/10/20 11:01:32
Modified: perl-framework/Apache-Test/lib/Apache TestServer.pm
Log:
make sure only 1 process is started for win32; else Kill will only shutdown
the parent
Revision Changes Path
1.38 +4 -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.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- TestServer.pm 2001/10/16 22:51:27 1.37
+++ TestServer.pm 2001/10/20 18:01:32 1.38
@@ -393,11 +393,14 @@
print "$cmd\n";
if (Apache::TestConfig::WIN32) {
+ #make sure only 1 process is used for win32
+ #else Kill will only shutdown the parent
+ my $one_process = $self->version_of(\%one_process);
require Win32::Process;
my $obj;
Win32::Process::Create($obj,
$httpd,
- $cmd,
+ "$cmd $one_process",
0,
Win32::Process::NORMAL_PRIORITY_CLASS(),
'.') || die Win32::Process::ErrorReport();
