i didn't include it earlier thinking it didn't mattermy $queue = []; sub REAP { my $kidpid; while(($kidpid = waitpid(-1,WNOHANG)) > 0) { #p rint "reaped $kidpid\n"; push @$queue, [ $kidpid, $? ]; } } $SIG{'CHLD'} = \&REAP;
In reply to Re^2: fork() interferring with backtick
by mkaiser67
in thread fork() interferring with backtick
by mkaiser67
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |