Index: /applications/editors/josm/i18n/i18n.pl
===================================================================
--- /applications/editors/josm/i18n/i18n.pl	(revision 31086)
+++ /applications/editors/josm/i18n/i18n.pl	(revision 31087)
@@ -8,5 +8,5 @@
 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,5 +36,5 @@
       my %postate = (last => "", type => "");
       my $linenum = 0;
-      print "Reading file $file\n";
+      print "Reading file $file (lang $l)\n";
       while(<FILE>)
       {
@@ -262,5 +262,5 @@
     my $la;
     my $cnt = 0;
-    if($file =~ /[-_]$lang_pattern\.lang$/ || $file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
+    if($file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
     {
       $la = $1;