Changeset 19356 in osm for applications/editors/josm

Timestamp:

2010-01-10T12:02:30+01:00 (15 years ago)

Author:

stoecker

Message:

fixed escaping

File:

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

applications/editors/josm/i18n/i18n.pl

@@ -187 +187 @@
 }
 
+sub makestring($)
+{
+  my ($str) = @_;
+  $str =~ s/\\"/"/g;
+  $str =~ s/\\n/\n/g;
+  $str = encode("utf8", $str);
+  return pack("n",length($str)).$str;
+}
+
 sub createlang($@)
 {
@@ -221 +230 @@
         $val = "" if($ennoctx eq $val);
       }
-      $val = encode("utf8", $val);
-      print FILE pack("n",length($val)).$val;
+      print FILE makestring($val);
     }
     print FILE pack "n",0xFFFF;
@@ -252 +260 @@
       if($num)
       {
-        $val = encode("utf8", $val);
-        print FILE pack("n",length($val)).$val;
+        print FILE makestring($val);
         for($num = 1; exists($data->{$en}{"$la.$num"}); ++$num)
         {
-          $val = encode("utf8", $data->{$en}{"$la.$num"});
-          print FILE pack("n",length($val)).$val;
+          print FILE makestring($data->{$en}{"$la.$num"});
         }
       }