generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Debugging messages to trace startnew failures

Browse Source
This commit is contained in:
Yang Tse
2007-11-22 19:56:38 +00:00
parent d789097af0
commit 6efb6addf2
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
tests/runtests.pl
View File

@@ -275,7 +275,7 @@ sub startnew {
my $pid2; my $pid2;
if(not defined $child) { if(not defined $child) {
logmsg "fork() failure detected\n"; logmsg "startnew: fork() failure detected\n";
return (-1,-1); return (-1,-1);
} }
@@ -291,27 +291,31 @@ sub startnew {
die "error: exec() has returned"; die "error: exec() has returned";
} }
# Ugly hack but ssh doesn't support pid files # Ugly hack but ssh doesn't support pid files
if ($fake) { if ($fake) {
logmsg "$pidfile faked with pid=$child\n" if($verbose); if(open(OUT, ">$pidfile")) {
open(OUT, ">$pidfile");
print OUT $child . "\n"; print OUT $child . "\n";
close(OUT); close(OUT);
logmsg "startnew: $pidfile faked with pid=$child\n" if($verbose);
}
else {
logmsg "startnew: failed to write fake $pidfile with pid=$child\n";
}
# could/should do a while connect fails sleep a bit and loop # could/should do a while connect fails sleep a bit and loop
sleep 5; sleep 5;
if (checkdied($child)) { if (checkdied($child)) {
logmsg "startnew: Warning: child process has failed to start\n" if($verbose); logmsg "startnew: child process has failed to start\n";
return (-1,-1); return (-1,-1);
} }
} }
my $count=12; my $count=12;
while($count--) { while($count--) {
if(-f $pidfile) { if(-f $pidfile) {
open(PID, "<$pidfile"); open(PID, "<$pidfile");
$pid2 = 0 + <PID>; $pid2 = 0 + <PID>;
close(PID); close(PID);
if($pid2 && kill(0, $pid2)) { if(($pid2 > 0) && kill(0, $pid2)) {
# if $pid2 is valid, then make sure this pid is alive, as # if $pid2 is valid, then make sure this pid is alive, as
# otherwise it is just likely to be the _previous_ pidfile or # otherwise it is just likely to be the _previous_ pidfile or
# similar! # similar!
@@ -319,7 +323,7 @@ sub startnew {
} }
} }
if (checkdied($child)) { if (checkdied($child)) {
logmsg "startnew: Warning: child process has died\n" if($verbose); logmsg "startnew: child process has died, but server might start up\n";
# We can't just abort waiting for the server with a # We can't just abort waiting for the server with a
# return (-1,-1); # return (-1,-1);
# because the server might have forked and could still start # because the server might have forked and could still start