countries: stop tracking data include
[sheet.git] / tools / mkcountries-geonames
index 592ce752113eed8a84777857d56230303e2b6932..99201b840c76347f865292610272b446a7ff011c 100755 (executable)
@@ -41,6 +41,7 @@ my %cc;  # map of country code to info array
 while (<>) {
        /^#/ and next;  # skip comments
        my ($iso, $name, $cont) = (split /\t/)[0, 4, 8];
+       $cont =~ s/\AAN\z/aa/;  # different antarctica abbreviation
        my $class = "c-\L$cont";
        $cc{ lc $iso } = [ $name, $class ];
 }