ignore country codes

This commit is contained in:
Matthew Hodgson 2017-05-27 18:38:37 +01:00
parent 8d79ab6ce2
commit bc433bc2a2

View file

@ -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);