From 8e445dc2c64e85f8f5556a6333aeb566ab78cf8d Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 Feb 2007 14:42:23 +0000
Subject: [PATCH] fixed bug in stream response handling, lengthened timeout

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6911 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm b/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
index 1ff6510962..330b22f113 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
@@ -86,7 +86,7 @@ sub run_request {
 
     my $data = [];
     my $req = $ses->request($method, @args);
-    while( my $resp = $req->recv( timeout => 300 ) ) {
+    while( my $resp = $req->recv( timeout => 600 ) ) {
         if( $req->failed ) {
             push( @$data, $req->failed );
             last;
@@ -95,6 +95,8 @@ sub run_request {
     }
 
     return [] if scalar(@$data) == 0;
+    return wrap_perl($$data[0]) 
+        if scalar(@$data) == 1 and $method !~ /.atomic$/og;
     return wrap_perl($data);
 }
 
-- 
2.11.0