Index: /trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- /trunk/api/perl/lib/Cache/Memcached.pm (revision 796)
+++ /trunk/api/perl/lib/Cache/Memcached.pm (revision 797)
@@ -19,5 +19,4 @@
 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,5 +442,4 @@
     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,4 +458,5 @@
         $flags |= F_STORABLE;
     }
+    warn "value for memkey:$key is not defined" unless defined $val;
 
     my $len = length($val);