now reports the CORRECT pid on demand

This commit is contained in:
Daniel Stenberg 2001-10-24 11:39:15 +00:00
parent c6822f5a7f
commit f933cb3b75
1 changed files with 3 additions and 1 deletions

View File

@ -39,6 +39,8 @@ open(PID, ">.http.pid");
print PID $$;
close(PID);
my $PID=$$;
my $waitedpid = 0;
my $paddr;
@ -119,7 +121,7 @@ for ( $waitedpid = 0;
elsif($path =~ /verifiedserver/) {
# this is a hard-coded query-string for the test script
# to verify that this is the server actually running!
print "HTTP/1.1 999 WE ROOLZ: $$\r\n";
print "HTTP/1.1 999 WE ROOLZ: $PID\r\n";
exit;
}
else {