strip spaces

diff --git a/Parse.pm b/Parse.pm
index 3102b5fdceb04544ca98c47e10b4b0028c08df73..565a322417b1ae48504a54e06873798f7c71f139 100644 (file)
--- 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 ];
       }