r43809 - /scripts/KGB/client/KGB_sendcommit
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 7 09:39:09 UTC 2009
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) {
More information about the Pkg-perl-cvs-commits
mailing list