r43809 - /scripts/KGB/client/KGB_sendcommit

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Sep  7 09:39:04 2009
New Revision: 43809

URL: http://svn.debian.org/wsvn/?sc=1&rev=43809
Log:
fix server randomization *hides*

Modified:
    scripts/KGB/client/KGB_sendcommit

Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=43809&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Mon Sep  7 09:39:04 2009
@@ -215,7 +215,7 @@
 
 #warn( change2text($_), "\n" ) for @changed;
 
-List::Util::shuffle(@servers);
+ at servers = List::Util::shuffle(@servers);
 
 # try all servers in turn until someone succeeds
 for my $srv (@servers) {