Changeset 27039 in osm for applications/editors


Ignore:
Timestamp:
2011-11-11T10:31:51+01:00 (13 years ago)
Author:
stoecker
Message:

small I/O fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • applications/editors/josm/i18n/langinfo.pl

    r26987 r27039  
    1 #! /usr/bin/perl -w
     1#! /usr/bin/perl -w -CDSL
     2
     3use Term::ReadKey;
     4use strict;
     5use utf8;
     6use Encode;
     7
     8my $tlen = (GetTerminalSize())[0]-11;
    29
    310my $data;
     
    2431        ++$num;
    2532        read FILE,$data,$len;
    26         $data =~ s/[\r\n]/./g;
    27         printf("%4d %5d %.50s\n", $i, $len, $data);
     33        $data = decode("utf-8", $data);
     34        $data =~ s/\r/\\r/g;
     35        $data =~ s/\n/\\n/g;
     36        $data = substr($data, 0, $tlen);
     37        printf("%4d %5d %s\n", $i, $len, $data);
    2838      }
    2939      else
     
    7080        {
    7181          read FILE,$data,$len;
    72           $data =~ s/[\r\n]/./g;
    73           printf("%4d %5d %.50s\n", $i, $len, $data);
     82          $data = decode("utf-8", $data);
     83          $data =~ s/\r/\\r/g;
     84          $data =~ s/\n/\\n/g;
     85          $data = substr($data, 0, $tlen);
     86          printf("%4d %5d %s\n", $i, $len, $data);
    7487        }
    7588        else
Note: See TracChangeset for help on using the changeset viewer.