X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8b237b43167a2443b69b6c0a3aec13c926782fc1..be041e9b8be6b01b402028eec190265e21b3dd11:/countries.plp diff --git a/countries.plp b/countries.plp index 24be348..61a4795 100644 --- a/countries.plp +++ b/countries.plp @@ -33,6 +33,7 @@ my $cc = do 'countries.inc.pl'; next; }; my ($name, $class, $short, $ref) = @$country; + $name .= " → $ref" if $ref; $ref ||= $code; local $_ = $ref; if (exists $get{show}) { @@ -41,7 +42,6 @@ my $cc = do 'countries.inc.pl'; } else { $_ = EscapeHTML($short || $name); - $name .= " → $ref" if $ref and $ref ne $code; } printf "\n".'%s', $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;