AN and CS are currently declared at GeoNames for some reason.
Ignore those for consistent reserved marking.
my ($iso, $name, $cont, $tld) = (split /\t/)[0, 4, 8, 9];
my @info = ($name, "c-\L$cont");
$info[3] = $tld if $tld =~ s/\A\.// and $tld ne lc $iso;
my ($iso, $name, $cont, $tld) = (split /\t/)[0, 4, 8, 9];
my @info = ($name, "c-\L$cont");
$info[3] = $tld if $tld =~ s/\A\.// and $tld ne lc $iso;
- $cc{ lc $iso } = \@info;
+ $cc{ lc $iso } //= \@info;
}
$cc{io}->[2] = "Chagos Islands";
}
$cc{io}->[2] = "Chagos Islands";