c DisplayNames

[pandemic-rising-tide.git] / Parse.pm

diff --git a/Parse.pm b/Parse.pm
index 33fca3c66c3db8a784eb021a0a9bbdf06d48ec17..d65495cb2e438f204c895134a5a2144d2dd17a70 100644 (file)
--- 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;