Changeset 790

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.

Location:

trunk/api/perl

Files:

• ChangeLog (modified) (1 diff)
• lib/Cache/Memcached.pm (modified) (1 diff)
• t/100_flush_bug.t (added)

trunk/api/perl/ChangeLog

@@ +1 @@
+        * flush_all now only returns success if there is a proper reply from all
+          servers - Yann Kerherve <yann@sixapart.com>
+        
         * 'noreply' support from Tomash Brechko <tomash.brechko@gmail.com>
 

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"));
     }