ignore country codes
This commit is contained in:
parent
8d79ab6ce2
commit
bc433bc2a2
1 changed files with 2 additions and 0 deletions
|
@ -43,6 +43,8 @@ foreach my $tuple (@$src_strings) {
|
||||||
print "\nChecking en_EN\n";
|
print "\nChecking en_EN\n";
|
||||||
my $count = 0;
|
my $count = 0;
|
||||||
foreach my $k (sort keys %$en) {
|
foreach my $k (sort keys %$en) {
|
||||||
|
# crappy heuristic to ignore country codes for now...
|
||||||
|
next if ($k =~ /^(..|..-..)$/);
|
||||||
if (!$src->{$k}) {
|
if (!$src->{$k}) {
|
||||||
if ($src->{$k. '.'}) {
|
if ($src->{$k. '.'}) {
|
||||||
printf ("%50s %24s\t%s\n", $src->{$k. '.'}, "src has fullstop!", $k);
|
printf ("%50s %24s\t%s\n", $src->{$k. '.'}, "src has fullstop!", $k);
|
||||||
|
|
Loading…
Reference in a new issue