fix timeouts

This commit is contained in:
Rudolf Polzer 2010-07-19 08:34:34 +02:00
parent 3a27e02f3a
commit 75840126be

View File

@ -183,11 +183,9 @@ sub q3map2(@)
or die "fork: $!";
if($pid) # parent
{
if($timeout)
{
local $SIG{ALRM} = sub { kill $pid; };
alarm $timeout;
}
local $SIG{ALRM} = sub { kill $pid; };
alarm $timeout
if $timeout;
if(waitpid $pid, 0 != $pid)
{
die "waitpid: did not return our child process $pid: $!";