Changeset 805 for trunk/api/perl/lib/Cache/Memcached.pm

Timestamp:

01/13/09 03:23:26 (11 months ago)

Author:

hachi

Message:

Fix reconnects on dead sockets to not be as slow.

Files:

• trunk/api/perl/lib/Cache/Memcached.pm (modified) (4 diffs)

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

@@ -245 +245 @@
         if ($self && $self->{pref_ip}{$ip}) {
             socket($sock, PF_INET, SOCK_STREAM, $proto);
+            $sock_map{$sock} = $host;
             my $prefip = $self->{pref_ip}{$ip};
             $sin = Socket::sockaddr_in($port,Socket::inet_aton($prefip));
@@ -260 +261 @@
         unless ($connected) {
             socket($sock, PF_INET, SOCK_STREAM, $proto);
+            $sock_map{$sock} = $host;
             $sin = Socket::sockaddr_in($port,Socket::inet_aton($ip));
             my $timeout = $self ? $self->{connect_timeout} : 0.25;
@@ -270 +272 @@
     } else { # it's a unix domain/local socket
         socket($sock, PF_UNIX, SOCK_STREAM, 0);
+        $sock_map{$sock} = $host;
         $sin = Socket::sockaddr_un($host);
         my $timeout = $self ? $self->{connect_timeout} : 0.25;
@@ -284 +287 @@
     select($old);
 
-    $sock_map{$sock} = $host;
     $cache_sock{$host} = $sock;