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

People
Owner: MNOONING [...] cpan.org
Requestors: grant [...] wolfram.com
Cc:
AdminCc:

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

Attachments


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 [...] comcast.net
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 Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.