Re: Re: Net::Daemon and zombies

Hi,
The code from Net::Daemon is:

sub SigChildHandler {
    my $self = shift; my $ref = shift;
    return undef if $self->{'mode'} ne 'fork'; # Don't care for childs
+.
    return 'IGNORE' if $^O eq 'linux'; # We get zombies on Linux other
+wise
    my $reaper;
    sub {
        $$ref = wait;
        $SIG{'CHLD'} = $reaper;
    };
}

sub Bind ($) {
    my $self = shift;
    my $fh;
    my $child_pid;

    my $reaper = $self->SigChildHandler(\$child_pid);
    $SIG{'CHLD'} = $reaper if $reaper;
...
[download]

As far as I understand the solution you suggested it actually the one used, but still - it does not work.

Any ideas? maybe there is a problem in the code I can't find?
TIA, shushu

Comment on Re: Re: Net::Daemon and zombies Download Code

Replies are listed 'Best First'.
Re: Re: Re: Net::Daemon and zombies by sgifford (Prior) on Sep 23, 2003 at 18:59 UTC
That code is buggy. Here it is in a package with a dummy `new` function, a `warn` statement to tell us when the reaper is running, and the line that checks if we're running under Linux commented out (since I'm testing it on Linux): Read more... (1225 Bytes) That creates 10 children fairly slowly. Let's see how many are reaped: `[sgifford@sghome pa1]$ perl /tmp/t107 My PID is 18286 Running reaper. Use of uninitialized value in scalar assignment at /tmp/t107 line 37.` [download] That doesn't look promising. So what happened to the other 9 processes? $ ps -ef \|grep 18286 sgifford 18286 16547 0 14:02 pts/0 00:00:00 perl /tmp/t107 sgifford 18288 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18289 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18292 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18295 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18298 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18301 18286 0 14:02 pts/0 00:00:00 [perl <defunct>] sgifford 18303 18212 0 14:03 pts/20 00:00:00 grep 18286 [download] Yup. Zombies. Just like you're seeing. I think that the only problem with this code is a typo. If we add a line below `my $reaper;`, saying `$reaper =`, assigning the sub ref to `$reaper` (which is what I believe the author intended) the problem goes away. Read more... (1239 Bytes) `$ perl /tmp/t107 My PID is 18322 Running reaper. Running reaper. Running reaper. Running reaper. Running reaper. Running reaper. Running reaper. Running reaper. Running reaper. Running reaper.` [download]	[reply] [d/l] [select]
Re: Re: Re: Net::Daemon and zombies by sgifford (Prior) on Sep 24, 2003 at 04:16 UTC
What version of Net::Daemon is that? On 0.37, the version on CPAN, SigChildHandler is just `sub SigChildHandler { my $self = shift; my $ref = shift; return 'IGNORE' if $self->{'mode'} eq 'fork' \|\| $self->{'childs'}; return undef; # Don't care for childs. }` [download]	[reply] [d/l]