new no_rehash option. remove it from TODO

git-svn-id: http://code.sixapart.com/svn/memcached/trunk/api/perl@171 b0b603af-a30f-0410-a34e-baf09ae79d0b

Author: bradfitz

Memcached.pm

@@ -48,6 +48,7 @@ sub new {
 
     $self->set_servers($args->{'servers'});
     $self->{'debug'} = $args->{'debug'};
+    $self->{'no_rehash'} = $args->{'no_rehash'};
     $self->{'stats'} = {};
     $self->{'compress_threshold'} = $args->{'compress_threshold'};
     $self->{'compress_enable'}    = 1;
@@ -75,6 +76,11 @@ sub set_debug {
     $self->{'debug'} = $dbg;
 }
 
+sub set_norehash {
+    my ($self, $val) = @_;
+    $self->{'no_rehash'} = $val;
+}
+
 sub set_compress_threshold {
     my ($self, $thresh) = @_;
     $self->{'compress_threshold'} = $thresh;
@@ -189,6 +195,7 @@ sub get_sock { # (key)
         my $host = $self->{'buckets'}->[$hv % $self->{'bucketcount'}];
         my $sock = sock_to_host($host);
         return $sock if $sock;
+        return undef if $sock->{'no_rehash'};
         $hv += _hashfunc($tries . $real_key);  # stupid, but works
     }
     return undef;
@@ -550,6 +557,10 @@ Use C<compress_threshold> to set a compression threshold, in bytes.
 Values larger than this threshold will be compressed by C<set> and
 decompressed by C<get>.
 
+Use C<no_rehash> to disable finding a new memcached server when one
+goes down.  Your application may or may not need this, depending on
+your expirations and key usage.
+
 The other useful key is C<debug>, which when set to true will produce
 diagnostics on STDERR.
 
@@ -569,6 +580,10 @@ constructor.
 
 Sets the C<debug> flag.  See C<new> constructor for more information.
 
+=item C<set_norehash>
+
+Sets the C<no_rehash> flag.  See C<new> constructor for more information.
+
 =item C<set_compress_threshold>
 
 Sets the compression threshold. See C<new> constructor for more information.

TODO

@@ -1,2 +1,2 @@
--- provide option to not do remapping, to avoid the "netsplit
-   problem".  (some apps might have a problem with that)
+-- jamie's stats patches
+