Changeset 31087 in osm

Timestamp:

2015-04-18T22:40:18+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

@@ -8 +8 @@
 my $waswarn = 0;
 my $maxcount = 0;
-my $lang_pattern = '(.._..|...?|ca\@valencia)';
+my $lang_pattern = '([a-z]{2}_[A-Z]{2}|[a-z]{2,3}|[a-z]{2}\@[a-z]+)';
 
 main();
@@ -36 +36 @@
       my %postate = (last => "", type => "");
       my $linenum = 0;
-      print "Reading file $file\n";
+      print "Reading file $file (lang $l)\n";
       while(<FILE>)
       {
@@ -262 +262 @@
     my $la;
     my $cnt = 0;
-    if($file =~ /[-_]$lang_pattern\.lang$/ || $file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
+    if($file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
     {
       $la = $1;