From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:41:47 +0000 (+0000)
Subject: hyphenate when splitting
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=e6fff7759ec61d9eb46c8690c0a92484e3224e78;p=pandemic-rising-tide.git

hyphenate when splitting
---

diff --git a/Parse.pm b/Parse.pm
index d65495c..3102b5f 100644
--- 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 ];