From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 18:06:28 +0000 (+0000)
Subject: Deltawerk
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=ea17b63569f7120b24b150e1724bbb391cb44137;p=pandemic-rising-tide.git

Deltawerk
---

diff --git a/Parse.pm b/Parse.pm
index 205a0d3..0553d84 100644
--- a/Parse.pm
+++ b/Parse.pm
@@ -61,7 +61,11 @@ sub read_in () {
     }
     if (my ($aref, $adykes, $dwdyke) =
 	m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?)(\@?))?$}) {
-      my $adj = { Dykes => (length $adykes // 0), L => $. };
+      my $adj = {
+		 Dykes => (length $adykes // 0),
+		 Deltawerk => !!$dwdyke,
+		 L => $.
+		};
       if ($aref =~ m{\.}) {
 	$adj->{Pattern} = $aref;
 	$aref =~ s{\-}{[^- ]*-}g;