From 63a0f3efb75c30e3fa868536d95251d4b2c0a92b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 1 Mar 2019 13:23:10 +0000 Subject: [PATCH] c DisplayNames --- Parse.pm | 2 +- misc-data.pl | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Parse.pm b/Parse.pm index 33fca3c..d65495c 100644 --- a/Parse.pm +++ b/Parse.pm @@ -44,7 +44,7 @@ sub read_in () { } if (my ($name, $water) = m{^\t(\S.*\w|L)(?: \[(\d+)\])?$}) { confess unless defined $ccolour; - my $dname = $name; + my $dname = $c{DisplayNames}{$name} // $name; $name =~ s{/}{}g; confess "$name ?" if $region{$name}; $region{$name}{Colour} = $ccolour; diff --git a/misc-data.pl b/misc-data.pl index 8514dce..f1e12d6 100644 --- a/misc-data.pl +++ b/misc-data.pl @@ -12,4 +12,7 @@ our %c = sea => '88f', land => '922', }, + DisplayNames => { + ZZ => 'Zuiderzee', + }, ); -- 2.30.2