Changeset 26987 in osm for applications/editors

Timestamp:

2011-10-29T14:40:10+02:00 (13 years ago)

Author:

stoecker

Message:

add language file information tool

Location:

applications/editors/josm/i18n

Files:

• i18n.pl (modified) (2 diffs)
• langinfo.pl (added)

applications/editors/josm/i18n/i18n.pl

@@ -304 +304 @@
       { }
       my $val;
+      $eq = 0;
       if($la eq "en")
       {
@@ -319 +320 @@
           my $ennoctx = $en;
           $ennoctx =~ s/^___(.*)___//;
-          $num = 0 if $val eq $ennoctx && $data->{$en}{"$la.1"} eq $data->{$en}{"en.1"};
-        }
-      }
-
-      print FILE pack "C",$num;
+          if($val eq $ennoctx && $data->{$en}{"$la.1"} eq $data->{$en}{"en.1"})
+          {
+            $num = 0;
+            $eq = 1;
+          }
+        }
+      }
+
+      print FILE pack "C",$eq ? 0xFE : $num;
       if($num)
       {