[memcached] bradfitz, r294: +2006-06-27

[commits at code.sixapart.com]

+2006-06-27
+       * patch from Maxim Dounin <mdounin at rambler-co.ru> to fix a typo
+         which caused no_rehash flag to not work.
+       * release 1.18



U   trunk/api/perl/ChangeLog
U   trunk/api/perl/lib/Cache/Memcached.pm


Modified: trunk/api/perl/ChangeLog
===================================================================
--- trunk/api/perl/ChangeLog	2006-06-13 05:56:31 UTC (rev 293)
+++ trunk/api/perl/ChangeLog	2006-06-28 05:59:57 UTC (rev 294)
@@ -1,3 +1,8 @@
+2006-06-27
+	* patch from Maxim Dounin <mdounin at rambler-co.ru> to fix a typo
+	  which caused no_rehash flag to not work.
+	* release 1.18
+
 2006-04-29
 	* flush_all command from Patrick Michael Kane <modus-memcache at pr.es.to>
 	* document namespaces

Modified: trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- trunk/api/perl/lib/Cache/Memcached.pm	2006-06-13 05:56:31 UTC (rev 293)
+++ trunk/api/perl/lib/Cache/Memcached.pm	2006-06-28 05:59:57 UTC (rev 294)
@@ -32,7 +32,7 @@
 use constant COMPRESS_SAVINGS => 0.20; # percent
 
 use vars qw($VERSION $HAVE_ZLIB $FLAG_NOSIGNAL);
-$VERSION = "1.17";
+$VERSION = "1.18";
 
 BEGIN {
     $HAVE_ZLIB = eval "use Compress::Zlib (); 1;";
@@ -271,7 +271,7 @@
         my $host = $self->{'buckets'}->[$hv % $self->{'bucketcount'}];
         my $sock = $self->sock_to_host($host);
         return $sock if $sock;
-        return undef if $sock->{'no_rehash'};
+        return undef if $self->{'no_rehash'};
         $hv += _hashfunc($tries . $real_key);  # stupid, but works
     }
     return undef;