Index: /trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- /trunk/api/perl/lib/Cache/Memcached.pm (revision 790)
+++ /trunk/api/perl/lib/Cache/Memcached.pm (revision 795)
@@ -442,4 +442,5 @@
     my Cache::Memcached $self = shift;
     my ($key, $val, $exptime) = @_;
+    $val = '' unless (defined $val);
     return 0 if ! $self->{'active'} || $self->{'readonly'};
     my $stime = Time::HiRes::time() if $self->{'stat_callback'};