Skip Menu |

This queue is for tickets about the Net-Daemon CPAN distribution.

Report information
The Basics
Id: 6410
Status: resolved
Worked: 45 min
Priority: 0/
Queue: Net-Daemon

Owner: MNOONING [...]
Requestors: grant [...]

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)


Subject: forkm.t problem with perl 5.8
Download (untitled) / with headers
text/plain 274b
I've had some problems with forkm.t under perl 5.8.3 on RH9 and Solaris 8. The tests themselves work, but all of the children spawned by forkm.t don't get reaped, and eventually it times out. Using the 'better' signal handler from the perlipc man page fixes the problem.
--- ./t/forkm.t.prepatch 2001-04-08 09:50:15.000000000 -0500 +++ ./t/forkm.t 2004-04-28 17:11:37.000000000 -0500 @@ -8,6 +8,7 @@ use Net::Daemon::Test (); use Fcntl (); use Config (); +use POSIX ":sys_wait_h"; my $ok; eval { @@ -102,10 +103,12 @@ my %childs; sub CatchChild { - my $pid = wait; - if (exists $childs{$pid}) { - delete $childs{$pid}; - ShowResults() if (keys(%childs) == 0); + my $pid; + while (($pid = waitpid(-1,WNOHANG)) > 0) { + if (exists $childs{$pid}) { + delete $childs{$pid}; + ShowResults() if (keys(%childs) == 0); + } } $SIG{'CHLD'} = \&CatchChild; }
From: m.nooning [...]
Download (untitled) / with headers
text/plain 413b
It has been quite a while since your suggestion was made. It has been incorporated into the test. This reported bug, and a couple of others, were hopefully fixed since then. Try Net-Daemon-0.41.tar.gz. It was only uploaded to CPAN mere minutes ago so you may need to wait a day or so. Unfortunately I have no Solaris on which to test it. I imagine the CPAN testers will let us know if it works on Solaris.
Fixed in Net-Daemon-0.41

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to