[libfcgi-procmanager-perl] 18/21: ProcManager: Fix start_delay causing a permanent hang.

[Florian Schlichting]

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

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

commit 69817330fbf326e9da8eae4f148bcc6a6eb8d014
Author: Gareth Kirwan <gbjk at thermeon.com>
Date:   Tue Aug 2 10:00:34 2011 +0100

    ProcManager: Fix start_delay causing a permanent hang.
---
 ChangeLog               | 1 +
 lib/FCGI/ProcManager.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 631199b..c5102e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
     * ProcManager::Constrained: Add a new FCGI::ProcManager::Constrainted
       subclass which will restart workers safely after a certain number of
       requests, or at certain memory thresholds.
+    * ProcManager: Fix start_delay causing a permanent hang.
 
 0.19 2009-07-22 Gareth Kirwan  <gbjk at cpan.org>
 
diff --git a/lib/FCGI/ProcManager.pm b/lib/FCGI/ProcManager.pm
index a85e845..ec7c947 100644
--- a/lib/FCGI/ProcManager.pm
+++ b/lib/FCGI/ProcManager.pm
@@ -213,7 +213,7 @@ sub pm_manage {
     last MANAGING_LOOP;
       }
 
-      for (my $s = $this->start_delay(); $s; $s = sleep $s) {};
+      for (my $s = $this->start_delay(); $s > 0; $s -= sleep $s) {};
     }
 
     # this should block until the next server dies.

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