[libfcgi-procmanager-perl] 01/05: Fix pm_wait

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to annotated tag 0.23
in repository libfcgi-procmanager-perl.

commit fca7461e4925c5bfe743878209b2576c6f029ed7
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Tue Sep 27 14:30:25 2011 +0100

    Fix pm_wait
---
 ChangeLog               | 4 ++++
 lib/FCGI/ProcManager.pm | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 10c41fe..0c47a95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+0.23
+    * Fix pm_wait routine to exit without a warning
+    * Fix pm_wait to correctly detect child processes which have died.
+
 0.22 2011-08-04 Tomas Doran  <bobtfish at bobtfish.net>
     * Ship a version of FCGI::ProcManager::Constrainted which actually
       works as advertised.
diff --git a/lib/FCGI/ProcManager.pm b/lib/FCGI/ProcManager.pm
index bd4dab8..e1cc8be 100644
--- a/lib/FCGI/ProcManager.pm
+++ b/lib/FCGI/ProcManager.pm
@@ -332,7 +332,7 @@ sub pm_wait {
   my ($this) = self_or_default(@_);
 
   # wait for the next server to die.
-  next if (my $pid = wait()) < 0;
+  return if (my $pid = wait() < 0);
 
   # notify when one of our servers have died.
   delete $this->{PIDS}->{$pid} and

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfcgi-procmanager-perl.git