Changeset 9662

Timestamp:

04/18/08 08:28:05 (8 months ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-libmemcached; silence warnings if undef exptime is passed

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

@@ -35 +35 @@
 
     # proxy these methods
-    foreach my $method qw(delete set add replace prepend append cas) {
+    foreach my $method qw(set add replace prepend append cas) {
         eval <<"        EOSUB";
-            sub $method { shift->memcached_$method(\@_) }
+            sub $method { shift->memcached_$method(\@_[0, 1], int(\$_[2] || 0)) }
         EOSUB
         die if $@;
@@ -147 +147 @@
 }
 
+sub delete { shift->memcached_delete($_[0], int($_[1] || 0)) }
+
 sub incr
 {