Changeset 15110

Timestamp:

07/03/08 19:36:11 (5 months ago)

Author:

daisuke

Message:

fix how offsets are handled

Location:

lang/perl/Cache-Memcached-libmemcached/trunk

Files:

• lib/Cache/Memcached/libmemcached.pm (modified) (2 diffs)
• t/18_incr_decr.t (added)

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

@@ -191 +191 @@
     my $self = shift;
     my $key  = shift;
+    my $offset = shift || 1;
     if ($self->{namespace}) {
         $key = "$self->{namespace}$key";
     }
-    $_[0] ||= 1 if @_ < 2;
     my $val = 0;
-    $self->memcached_increment($key, $_[0], $val);
+    $self->memcached_increment($key, $offset, $val);
     return $val;
 }
@@ -204 +204 @@
     my $self = shift;
     my $key  = shift;
+    my $offset = shift || 1;
     if ($self->{namespace}) {
         $key = "$self->{namespace}$key";
     }
-    $_[0] ||= 1 if @_ < 2;
     my $val = 0;
-    $self->memcached_decrement($key, $_[0], $val);
+    $self->memcached_decrement($key, $offset, $val);
     return $val;
 }