logging put errors instead of throwing exception
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 11 Aug 2006 20:21:39 +0000 (20:21 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 11 Aug 2006 20:21:39 +0000 (20:21 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5478 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/Utils/Cache.pm

index 96b778a..ac430bd 100644 (file)
@@ -102,8 +102,10 @@ sub put_cache {
 
        $expiretime ||= $max_persist_time;
 
 
        $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);
 
 
        $log->debug("Stored $key => $value in memcached server", INTERNAL);