treat a "failed" request as an exception
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 22 Sep 2008 16:09:57 +0000 (16:09 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 22 Sep 2008 16:09:57 +0000 (16:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10683 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm

index c6c4196..abcb515 100644 (file)
@@ -312,7 +312,12 @@ sub request {
 
         } else {
             my $resp = $req->recv(timeout => $self->timeout);
 
         } else {
             my $resp = $req->recv(timeout => $self->timeout);
-            $val = $resp->content;
+            if($req->failed) {
+                $err = $resp;
+                       $self->log(E, "request error $method : $argstr : $err");
+            } else {
+                $val = $resp->content;
+            }
         }
 
         $req->finish;
         }
 
         $req->finish;