logging put errors instead of throwing exception

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@756 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Utils/Cache.pm b/src/perlmods/OpenSRF/Utils/Cache.pm
index 96b778a..ac430bd 100644 (file)
--- 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);