Index: applications/editors/josm/i18n/langinfo.pl
===================================================================
--- applications/editors/josm/i18n/langinfo.pl	(revision 27038)
+++ applications/editors/josm/i18n/langinfo.pl	(revision 27039)
@@ -1,3 +1,10 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl -w -CDSL
+
+use Term::ReadKey;
+use strict;
+use utf8;
+use Encode;
+
+my $tlen = (GetTerminalSize())[0]-11;
 
 my $data;
@@ -24,6 +31,9 @@
         ++$num;
         read FILE,$data,$len;
-        $data =~ s/[\r\n]/./g;
-        printf("%4d %5d %.50s\n", $i, $len, $data);
+        $data = decode("utf-8", $data);
+        $data =~ s/\r/\\r/g;
+        $data =~ s/\n/\\n/g;
+        $data = substr($data, 0, $tlen);
+        printf("%4d %5d %s\n", $i, $len, $data);
       }
       else
@@ -70,6 +80,9 @@
         {
           read FILE,$data,$len;
-          $data =~ s/[\r\n]/./g;
-          printf("%4d %5d %.50s\n", $i, $len, $data);
+          $data = decode("utf-8", $data);
+          $data =~ s/\r/\\r/g;
+          $data =~ s/\n/\\n/g;
+          $data = substr($data, 0, $tlen);
+          printf("%4d %5d %s\n", $i, $len, $data);
         }
         else