Index: /applications/editors/josm/i18n/launchpad.pl
===================================================================
--- /applications/editors/josm/i18n/launchpad.pl	(revision 27209)
+++ /applications/editors/josm/i18n/launchpad.pl	(revision 27210)
@@ -3,4 +3,5 @@
 
 use strict;
+use utf8;
 
 my ($user, $pwd);
@@ -21,5 +22,6 @@
 );
 
-my $revision = '$Revision$revision =~ s/^.*?(\d+).*$/$1/;
+my $revision = '$Revision$';
+$revision =~ s/^.*?(\d+).*$/$1/;
 my $agent = "JOSM_Launchpad/1.$revision";
 
@@ -228,12 +230,13 @@
 {
   my ($mech, $page) = @_;
-  print "$page\n";
   for(my $i = 1; $i <= 50; $i++)
   {
+    $mech->timeout(30);
     eval
     {
       $mech->get($page);
     };
-    print "Try $i: $@" if $@;
+    my $code = $mech->status();
+    print "Try $i: ($code) $@" if $@;
     return $mech if !$@;
     sleep(30+5*$i);
@@ -266,7 +269,7 @@
   for my $lang (sort keys %lang)
   {
-    $mech->get("https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/");
+    doget($mech, "https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/");
     sleep(1);
-    my $cont = utf8::upgrade($mech->content());
+    my $cont = $mech->content();
     while($cont =~ /<a href="https?:\/\/launchpad.net\/~(.*?)" class="sprite person(-inactive)?">(.*?)<\/a>/g)
     {