Avoid keeping dupe pids When forked pid and test server pid is the same one.

This commit is contained in:
Yang Tse 2006-11-18 04:07:01 +00:00
parent 2e17a97474
commit 0b5e1a9b2f

View File

@ -283,11 +283,16 @@ sub startnew {
# setup entry in the running servers hash
$run{$serv}{'pidfile'} = $pidfile; # pidfile for the test server.
$run{$serv}{'pidfile'} = $pidfile; # pidfile for the test server.
$run{$serv}{'pids'} = "$child $pid2"; # forked pid and test server pid.
if($child == $pid2) {
$run{$serv}{'pids'} = "$pid2"; # test server pid.
}
else {
$run{$serv}{'pids'} = "$child $pid2"; # forked pid and test server pid.
}
if($serv =~ /^ftp(\d*)(-ipv6|)/) { # ftp servers have slavepidfiles.
if($serv =~ /^ftp(\d*)(-ipv6|)/) { # ftp servers have slavepidfiles.
my ($id, $ext) = ($1, $2);
$ext =~ s/\-//g;
my $slavepidfiles = ".sockfilt$id$ext.pid .sockdata$id$ext.pid";