hyphenate when splitting

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

diff --git a/Parse.pm b/Parse.pm
index d65495cb2e438f204c895134a5a2144d2dd17a70..3102b5fdceb04544ca98c47e10b4b0028c08df73 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -51,6 +51,7 @@ sub read_in () {
       $region{$name}{Water} = $water;
       $region{$name}{L} = $.;
       if ($dname =~ m{/}) {
+       $dname =~ s{(?<!-)/(?! )}{-/}g;
        $region{$name}{DisplayName} = [ grep m/./, split m{/}, $dname ];
       } else {
        $region{$name}{DisplayName} = [ split m{(?<=-)| }, $dname ];