fixing recursion bug

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

diff --git a/src/perlmods/OpenSRF/MultiSession.pm b/src/perlmods/OpenSRF/MultiSession.pm
index 6a02476..dd0579c 100644 (file)
--- a/src/perlmods/OpenSRF/MultiSession.pm
+++ b/src/perlmods/OpenSRF/MultiSession.pm
@@ -196,6 +196,7 @@ sub request {
                push @{ $self->{running} },
                        { req => $req,
                          meth => $method,
+                         hash => $hash_param,
                          params => [@params]
                        };
 
@@ -223,7 +224,7 @@ sub session_wait {
                }
                return $count;
        } else {
-               while(($count = $self->session_reap) > 0) {
+               while(($count = $self->session_reap) == 0 && $self->running) {
                        usleep 100;
                }
                return $count;