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

Timestamp:

07/23/08 19:18:17 (16 months ago)

Author:

ykerherve

Message:

Fixed flush_all to only return success when there is a proper OK
returned by all the servers.

Files:

• trunk/api/perl/lib/Cache/Memcached.pm (modified) (1 diff)

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

@@ -784 +784 @@
         my $sock = $self->sock_to_host($host);
         my @res = $self->run_command($sock, "flush_all\r\n");
-        $success = 0 unless (@res);
+        $success = 0 unless (scalar @res == 1 && (($res[0] || "") eq "OK\r\n"));
     }