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

strip spaces
---

diff --git a/Parse.pm b/Parse.pm
index 3102b5f..565a322 100644
--- a/Parse.pm
+++ b/Parse.pm
@@ -52,7 +52,7 @@ sub read_in () {
       $region{$name}{L} = $.;
       if ($dname =~ m{/}) {
 	$dname =~ s{(?<!-)/(?! )}{-/}g;
-	$region{$name}{DisplayName} = [ grep m/./, split m{/}, $dname ];
+	$region{$name}{DisplayName} = [ grep m/./, split m{ */ *}, $dname ];
       } else {
 	$region{$name}{DisplayName} = [ split m{(?<=-)| }, $dname ];
       }