[memcached] bradfitz, r298: return nothing, nicely, if configured me...

[commits at code.sixapart.com]

return nothing, nicely, if configured memcached is down



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


Modified: trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- trunk/api/perl/lib/Cache/Memcached.pm	2006-07-05 22:23:30 UTC (rev 297)
+++ trunk/api/perl/lib/Cache/Memcached.pm	2006-07-06 18:50:53 UTC (rev 298)
@@ -523,6 +523,7 @@
 
     if ($self->{'_single_sock'}) {
         $sock = $self->sock_to_host($self->{'_single_sock'});
+        return {} unless $sock;
         foreach my $key (@_) {
             my $kval = ref $key ? $key->[1] : $key;
             push @{$sock_keys{$sock}}, $kval;