From ea17b63569f7120b24b150e1724bbb391cb44137 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 18:06:28 +0000
Subject: [PATCH] Deltawerk

---
 Parse.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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