From e6fff7759ec61d9eb46c8690c0a92484e3224e78 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:41:47 +0000
Subject: [PATCH] hyphenate when splitting

---
 Parse.pm | 1 +
 1 file changed, 1 insertion(+)

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 ];
-- 
2.30.2