Changeset 795

Timestamp:

11/21/08 23:59:57 (2 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'};