From 2c29241974985f97d4415a50119edf6eeab8bec8 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 22 Sep 2008 16:09:57 +0000
Subject: [PATCH] treat a "failed" request as an exception

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10683 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
index c6c4196136..abcb515692 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
@@ -312,7 +312,12 @@ sub request {
 
         } 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;
-- 
2.43.2