[libfcgi-procmanager-perl] 14/21: Fix a bug in Constrained.pm

[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 4ee37e76442e51b7a2999123d7525a4a6e060652
Author: Tomas Doran (t0m) <t0m at state51.co.uk>
Date:   Thu Apr 28 09:37:13 2011 +0000

    Fix a bug in Constrained.pm
---
 lib/FCGI/ProcManager/Constrained.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/FCGI/ProcManager/Constrained.pm b/lib/FCGI/ProcManager/Constrained.pm
index 7bda92e..f9dd568 100644
--- a/lib/FCGI/ProcManager/Constrained.pm
+++ b/lib/FCGI/ProcManager/Constrained.pm
@@ -4,7 +4,6 @@ use warnings;
 use Carp qw/ confess /;
 use base 'FCGI::ProcManager';
 use Config;
-our $VERSION = '0.02';
 
 sub new {
     my $proto = shift;
@@ -33,13 +32,13 @@ sub handling_init {
 sub pm_post_dispatch {
     my $self = shift;
     if ($self->max_requests > 0 && ++$self->{_request_counter} == $self->max_requests) {
-        $self->pm_exit("safe exit after max_requests");
+        $self->pm_exit("safe exit after max_requests (" . $self->{_request_counter} . ")");
     }
     if ($self->sizecheck_num_requests
         and $self->{_request_counter} # Not the first request
         and $self->{_request_counter} % $self->sizecheck_num_requests == 0
     ) {
-        $self->exit("safe exit due to memory limits exceeded after " . $self->request_count . " requests")
+        $self->exit("safe exit due to memory limits exceeded after " . $self->{_request_counter} . " requests")
             if $self->_limits_are_exceeded;
     }
     $self->SUPER::pm_post_dispatch();

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