Changeset 36409 in osm

Timestamp:

2025-03-20T16:44:40+01:00 (2 days ago)

Author:

stoecker

Message:

support utf-8

File:

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

applications/editors/josm/i18n/replacetrans.pl

@@ -4 +4 @@
 use strict;
 use open qw/:std :encoding(utf8)/;
+use Encode;
 
 # call with pairs of strings, first the wrong string, second the replacement
@@ -11 +12 @@
 while(@ARGV)
 {
-  my $from = shift @ARGV;
-  my $to = shift @ARGV;
+  my $from = Encode::decode("utf-8", shift @ARGV);
+  my $to = Encode::decode("utf-8", shift @ARGV);
   $rep{$from} = $to;
   print "'$from' -> '$to'\n";
 }
 
-for my $po (reverse sort glob("po/*.po"))
+for my $po (reverse sort glob("po/fr.po"))
 {
   local $/;
   $/ = "\n\n";
-  open my $in,'<',$po or die;
+  open my $in,'<:encoding(utf-8)',$po or die;
   my $outpo = $po;
   $outpo =~ s/.*\///;
   open my $out,'>',$outpo or die;
   my $changed = 0;
-  
+
   for my $line (<$in>)
   {