From da4c57cdad86fb30e183684f8a15539bbb2555cb Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 11 Aug 2006 20:21:39 +0000
Subject: [PATCH] logging put errors instead of throwing exception

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@756 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/Cache.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/perlmods/OpenSRF/Utils/Cache.pm b/src/perlmods/OpenSRF/Utils/Cache.pm
index 96b778a..ac430bd 100644
--- a/src/perlmods/OpenSRF/Utils/Cache.pm
+++ b/src/perlmods/OpenSRF/Utils/Cache.pm
@@ -102,8 +102,10 @@ sub put_cache {
 
 	$expiretime ||= $max_persist_time;
 
-	$self->{memcache}->set( $key, $value, $expiretime ) ||
-		throw OpenSRF::EX::ERROR ("Unable to store $key => $value in memcached server" );
+	unless( $self->{memcache}->set( $key, $value, $expiretime ) ) {
+		$log->error("Unable to store $key => [".length($value)." bytes]  in memcached server" );
+		return undef;
+	}
 
 	$log->debug("Stored $key => $value in memcached server", INTERNAL);
 
-- 
2.43.2