From 716c16e5f0f6683184af15223f8012a70d4bdf2e Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 11 Aug 2006 20:21:39 +0000 Subject: [PATCH 1/1] logging put errors instead of throwing exception git-svn-id: svn://svn.open-ils.org/ILS/trunk@5478 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/Utils/Cache.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils/Cache.pm b/OpenSRF/src/perlmods/OpenSRF/Utils/Cache.pm index 96b778a147..ac430bd65b 100644 --- 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); -- 2.43.2