From 80f39bc0b503c711a89cb1319f69a2e5b04ce6d7 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 24 Apr 2006 03:21:43 +0000
Subject: [PATCH] fixing recursion bug

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@705 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/MultiSession.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/MultiSession.pm b/src/perlmods/OpenSRF/MultiSession.pm
index 6a02476..dd0579c 100644
--- 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;
-- 
2.11.0