Changeset 31088 in osm for applications/editors

Timestamp:

2015-04-18T23:37:12+02:00 (10 years ago)

Author:

stoecker

Message:

see #josm11148 - fix dialects

File:

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

applications/editors/josm/i18n/i18n.pl

@@ -9 +9 @@
 my $maxcount = 0;
 my $lang_pattern = '([a-z]{2}_[A-Z]{2}|[a-z]{2,3}|[a-z]{2}\@[a-z]+)';
+my $lang_pattern_file = '([a-z]{2}_[A-Z]{2}|[a-z]{2,3}|[a-z]{2}-[a-z]+)';
 
 main();
@@ -262 +263 @@
     my $la;
     my $cnt = 0;
-    if($file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
+    if($file =~ /^(?:.*\/)?$lang_pattern_file\.lang$/)
     {
       $la = $1;
+      $la =~ s/-/\@/;
     }
     else
@@ -370 +372 @@
   foreach my $la (sort keys %lang)
   {
+    $la =~ s/\@/-/;
     push(@clang, "${basename}$la.lang");
   }