r43807 - in /scripts/KGB: client/KGB_sendcommit debian/changelog
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 7 09:09:41 UTC 2009
Author: dmn
Date: Mon Sep 7 09:09:36 2009
New Revision: 43807
URL: http://svn.debian.org/wsvn/?sc=1&rev=43807
Log:
randomize server list
Modified:
scripts/KGB/client/KGB_sendcommit
scripts/KGB/debian/changelog
Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=43807&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Mon Sep 7 09:09:36 2009
@@ -28,6 +28,7 @@
use SOAP::Lite;
use Getopt::Long;
use YAML ();
+use List::Util ();
my( $conf_file, $uri, $proxy, $repo_id, $password, $timeout,
$repo_type, @br_mod_re, $br_mod_re_swap, $ignore_branch, @servers,
@@ -214,6 +215,8 @@
#warn( change2text($_), "\n" ) for @changed;
+List::Util::shuffle(@servers);
+
# try all servers in turn until someone succeeds
for my $srv (@servers) {
Modified: scripts/KGB/debian/changelog
URL: http://svn.debian.org/wsvn/scripts/KGB/debian/changelog?rev=43807&op=diff
==============================================================================
--- scripts/KGB/debian/changelog (original)
+++ scripts/KGB/debian/changelog Mon Sep 7 09:09:36 2009
@@ -1,11 +1,14 @@
kgb-bot (0.04) UNRELEASED; urgency=low
[ Damyan Ivanov ]
- * use "dir" or "dirs" depending on the number (1 or greater)
- * avoid wrong trimming of changed paths when branch or module cannot be
- detected
- * fix population of default password and proxy for servers
- * move checksum calculation back into servers loop
+ * server
+ + use "dir" or "dirs" depending on the number (1 or greater)
+ * client
+ + avoid wrong trimming of changed paths when branch or module cannot be
+ detected
+ + fix population of default password and proxy for servers
+ + move checksum calculation back into servers loop
+ + randomize server list
[ gregor herrmann ]
* debian/rules: simplify, and don't compress examples.
More information about the Pkg-perl-cvs-commits
mailing list