From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 Feb 2007 14:42:23 +0000 (+0000)
Subject: fixed bug in stream response handling, lengthened timeout
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b9b73836476b5d6e4f8237774ee92b093f8c93fb;p=Evergreen.git

fixed bug in stream response handling, lengthened timeout


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6911 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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);
 }