This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Tarantool -- an efficient key/value data store".

The branch perl-iproto-async has been updated
       via  b1668639ab561f063a2e850694f4feee3bb740df (commit)
      from  58219ccc5cc938486cdbf652a922c01cdde2b5d3 (commit)

Summary of changes:
 mod/silverbox/client/perl/lib/MR/IProto.pm |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

commit b1668639ab561f063a2e850694f4feee3bb740df
Author: Aleksey Mashanov <[email protected]>
Date:   Thu Apr 7 19:46:03 2011 +0400

    Fix for broken retries

diff --git a/mod/silverbox/client/perl/lib/MR/IProto.pm 
b/mod/silverbox/client/perl/lib/MR/IProto.pm
index 14931e4..9e3f5f2 100644
--- a/mod/silverbox/client/perl/lib/MR/IProto.pm
+++ b/mod/silverbox/client/perl/lib/MR/IProto.pm
@@ -614,7 +614,10 @@ sub _server_callback {
 
 sub _recv_now {
     my ($self, $servers) = @_;
-    $_->recv_all() foreach values %$servers;
+    while(my @servers = values %$servers) {
+        %$servers = ();
+        $_->recv_all() foreach @servers;
+    }
     return;
 }
 

-- 
Tarantool -- an efficient key/value data store

_______________________________________________
Mailing list: https://launchpad.net/~tarantool-developers
Post to     : [email protected]
Unsubscribe : https://launchpad.net/~tarantool-developers
More help   : https://help.launchpad.net/ListHelp

Reply via email to