flush output file handle and send kill to whole process group

This commit is contained in:
Dietmar Maurer 2011-09-12 13:50:21 +02:00
parent a6e9428854
commit f6f2d51fa9

View File

@ -530,7 +530,7 @@ sub fork_worker {
kill('KILL', $$);
}
# sync with parent (signal that we are read)
# sync with parent (signal that we are ready)
if ($sync) {
print "$upid\n";
} else {
@ -632,6 +632,7 @@ sub fork_worker {
}
if ($outfh) {
print $outfh $line;
$outfh->flush();
}
}
}
@ -653,10 +654,10 @@ sub fork_worker {
if ($outfh) {
print $outfh "TASK ERROR: $err\n";
}
kill (15, $cpid);
kill (-15, $cpid);
} else {
kill (9, $cpid); # make sure it gets killed
kill (-9, $cpid); # make sure it gets killed
}
close($outfh);