REALLY fix timeout feature

This commit is contained in:
Rudolf Polzer 2010-07-21 15:03:35 +02:00
parent ad6535cc2a
commit ae02c9f56e

View File

@ -183,7 +183,7 @@ sub q3map2(@)
or die "fork: $!";
if($pid) # parent
{
local $SIG{ALRM} = sub { warn "SIGALRM caught\n"; kill $pid; };
local $SIG{ALRM} = sub { warn "SIGALRM caught\n"; kill TERM => $pid; };
alarm $timeout
if $timeout;
if(waitpid($pid, 0) != $pid)