Re: Re: nite of the living dead: perl and stunnel make zombies

[merlyn]

That's neither necessary nor sufficient.

The problem is that you might get one SIGCHLD even though more than one child has gone belly up, and thus you aren't waiting long enough.

Either use a double-fork solution (so the kids are effectively orphaned grandkids who become adopted by process #1), or a waitpid loop until there are no more kids to reap at opportune times in your algorithm.

-- Randal L. Schwartz, Perl hacker

[Chmrr]

One method to do the latter:

use POSIX ":sys_wait_h";
SIG{CHLD} = \&REAPER;
sub REAPER {
  1 while (waitpid(-1,&WNOHANG) != -1);
  $SIG{CHLD} = \&REAPER;
}

On a somewhat off-topic note, what version of the perldocs (like this one) are the ones on PerlMonks? 5.6's waitpid docs have an example of exactly this, whereas 'tis missing on PerlMonks..
perl -e 'print "Just use $^X$\"$]!$/"'

[extremely]

I don't think vroom has reimported the pdocs since 5.6 settled. They are eldritch. =)

--
$you = new YOU;
honk() if $you->love(perl)