Changeset 795

Timestamp:

11/21/08 23:59:57 (12 months ago)

Author:

henrylyne

Message:

If a memcache value is undefined, default it to an empty string. This fixes errors reported for using length on undef, and trying to concatenate an undef value.

Files:

• trunk/api/perl/lib/Cache/Memcached.pm (modified) (1 diff)

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

@@ -442 +442 @@
     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'};