Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Turn off child handler for now.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-04-28 20:54:31 -07:00
parent bb4c940b26
commit 1cb64afb40
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
extract-code-added-in-commits.plx
View file

@ -143,7 +143,7 @@ while (my $line = <STDIN>) {
my %childProcesses; my %childProcesses;
my %finishedOperations; my %finishedOperations;
$SIG{CHLD} = sub { my $childHandler = sub {
# don't change $! and $? outside handler # don't change $! and $? outside handler
local ($!, $?); local ($!, $?);
while ( (my $pid = waitpid(-1, WNOHANG)) > 0 ) { while ( (my $pid = waitpid(-1, WNOHANG)) > 0 ) {
@ -155,6 +155,7 @@ $SIG{CHLD} = sub {
delete $childProcesses{$pid}; delete $childProcesses{$pid};
} }
}; };
# $SIG{CHLD} = $childHandler;
############################################################################## ##############################################################################
sub StartChildLog($$) { sub StartChildLog($$) {
my($operation, $pid) = @_; my($operation, $pid) = @_;