allow max_requests to be infinite on the server side

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@158 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index cf58528..99b26fe 100644 (file)
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -153,6 +153,7 @@ sub service { return shift()->{service}; }
 sub continue_request {
        my $self = shift;
        $self->{'requests'}++;
+       return 1 if (!$self->{'max_requests'});
        return $self->{'requests'} <= $self->{'max_requests'} ? 1 : 0;
 }