Cache::Memcached issue

[Jason Titus]

This is a multi-part message in MIME format.
--------------040200040306090708030105
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Sorry about that.  Yes, the problem is still there on 1.0.12.  I am 
attaching a patch against that release.

Thanks,
Jason

--------------040200040306090708030105
Content-Type: text/plain;
 name="Cache-Memcached-1.0.12-dead-fix.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="Cache-Memcached-1.0.12-dead-fix.patch"

Only in Cache-Memcached-1.0.12-dead-fix: blib
Only in Cache-Memcached-1.0.12-dead-fix: Makefile
diff -u Cache-Memcached-1.0.12/Memcached.pm Cache-Memcached-1.0.12-dead-fix/Memcached.pm
--- Cache-Memcached-1.0.12/Memcached.pm	2004-02-03 10:27:43.000000000 -0800
+++ Cache-Memcached-1.0.12-dead-fix/Memcached.pm	2004-03-18 10:50:38.153647672 -0800
@@ -104,7 +104,7 @@
         my $now = time();
         my ($ip, $port) = ($1, $2);
         my $host = "$ip:$port";
-        $host_dead{$host} = $host_dead{$ip} = $now + $dead_for
+        $host_dead{$host} = $now + $dead_for
             if $dead_for;
         delete $cache_sock{$host};
     }
@@ -154,8 +154,7 @@
     my $now = time();
     my ($ip, $port) = $host =~ /(.*):(\d+)/;
     return undef if
-         $host_dead{$host} && $host_dead{$host} > $now ||
-         $host_dead{$ip} && $host_dead{$ip} > $now;
+         $host_dead{$host} && $host_dead{$host} > $now ;
 
     my $sock = "Sock_$host";
     my $proto = $PROTO_TCP ||= getprotobyname('tcp');
Only in Cache-Memcached-1.0.12-dead-fix: pm_to_blib
Common subdirectories: Cache-Memcached-1.0.12/t and Cache-Memcached-1.0.12-dead-fix/t

--------------040200040306090708030105--