logging put errors instead of throwing exception

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

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