Changeset 9649

Timestamp:

04/18/08 00:56:40 (5 years ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-libmemcached; explicitly wekan ref to self

Files:

• lang/perl/Cache-Memcached-libmemcached/trunk/lib/Cache/Memcached/libmemcached.pm (modified) (2 diffs)

lang/perl/Cache-Memcached-libmemcached/trunk/lib/Cache/Memcached/libmemcached.pm

@@ -9 +9 @@
 use base qw(Memcached::libmemcached);
 use Carp qw(croak);
+use Scalar::Util qw(weaken);
 use Storable ();
 
@@ -106 +107 @@
     my $self = shift;
 
+    weaken($self);
     my $inflate = sub {
         my ($key, $flags) = @_;