Index: /trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- /trunk/api/perl/lib/Cache/Memcached.pm (revision 795)
+++ /trunk/api/perl/lib/Cache/Memcached.pm (revision 796)
@@ -19,4 +19,5 @@
 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
@@ -442,5 +443,5 @@
     my Cache::Memcached $self = shift;
     my ($key, $val, $exptime) = @_;
-    $val = '' unless (defined $val);
+    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'};