X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e7c68cd940f8ab1a8de85f6685367cfb7eb6378f..e6fbf79145f16370f1f1d23d78e5e0649b573297:/tools/mkcountries-geonames

diff --git a/tools/mkcountries-geonames b/tools/mkcountries-geonames
index 91daae7..32883ec 100755
--- a/tools/mkcountries-geonames
+++ b/tools/mkcountries-geonames
@@ -62,7 +62,8 @@ $cc{io}->[2] = "Chagos Islands";
 $cc{um}->[2] = "U.S. isl.";
 
 for (values %cc) {
-	for ($_->[2] //= $_->[0]) {
+	my $abbr = do {
+		local $_ = $_->[2] // $_->[0];
 		s/,.*//;
 		s/(?<=.)\(.*\)\s*//;
 		s/ republic\b//gi;
@@ -77,7 +78,9 @@ for (values %cc) {
 		s/New /n./g;
 		s/(\S)(\S+)-/$1-/g;  # strip most chars preceding dash
 		s/(\S{4}[b-df-hj-np-tv-xz])((?<!Austr)(?!land)\w{2,})/$1./g;  # abbreviate (at consonant)
-	}
+		$_;
+	};
+	$_->[2] = $abbr if $abbr ne $_->[0];  # short name if different
 }
 
 say "# automatically generated by $0";