Changeset 30169 in osm

Timestamp:

2014-01-01T23:31:11+01:00 (11 years ago)

Author:

stoecker

Message:

fix perl deprecation warning

File:

• applications/editors/josm/i18n/i18n.pl (modified) (3 diffs)

applications/editors/josm/i18n/i18n.pl

@@ -2 +2 @@
 
 use utf8;
-use encoding "utf8";
-binmode STDERR, ":encoding(utf8)";
+use open qw/:std :encoding(utf8)/;
 use Term::ReadKey;
 use Encode;
@@ -217 +216 @@
   if($v =~ /'/)#&& $la ne "en")
   {
-    warn "JAVA translation issue for language $la: Mismatching single quotes:\nTranslated text: $tr\nOriginal text: $en\n";
+    warn "JAVA translation issue for language $la: Mismatching single quotes:\nTranslated text: ".decode("utf8",$tr)."\nOriginal text: ".decode("utf8",$en)."\n";
     $error = 1;
   }
@@ -238 +237 @@
     if(!($fmte eq '0' && $fmt eq "" && $cnt == 1)) # Don't warn when a single value is left for first multi-translation
     {
-      warn "JAVA translation issue for language $la ($cnt): Mismatching format entries:\nTranslated text: $tr\nOriginal text: $en\n";
+      warn "JAVA translation issue for language $la ($cnt): Mismatching format entries:\nTranslated text: ".decode("utf8",$tr)."\nOriginal text: ".decode("utf8",$en)."\n";
       $error = 1;
     }