Changeset 797 for trunk/api/perl/lib/Cache/Memcached.pm

Timestamp:

11/24/08 23:28:48 (12 months ago)

Author:

henrylyne

Message:

Carp output is not that useful, switching to warn.
Issue warn after references after handled, so value for key is readable in warn.
Remove unnecessary parenthesis.

Files:

• trunk/api/perl/lib/Cache/Memcached.pm (modified) (3 diffs)

trunk/api/perl/lib/Cache/Memcached.pm

@@ -19 +19 @@
 use Errno qw( EINPROGRESS EWOULDBLOCK EISCONN );
 use Cache::Memcached::GetParser;
-use Carp qw(carp croak);
 use fields qw{
     debug no_rehash stats compress_threshold compress_enable stat_callback
@@ -443 +442 @@
     my Cache::Memcached $self = shift;
     my ($key, $val, $exptime) = @_;
-    carp "value for memkey:$key is not defined" unless (defined $val);
     return 0 if ! $self->{'active'} || $self->{'readonly'};
     my $stime = Time::HiRes::time() if $self->{'stat_callback'};
@@ -460 +458 @@
         $flags |= F_STORABLE;
     }
+    warn "value for memkey:$key is not defined" unless defined $val;
 
     my $len = length($val);