Deltawerk

[pandemic-rising-tide.git] / Parse.pm

diff --git a/Parse.pm b/Parse.pm
index 205a0d343160c77f5676cae2f6191602571922ad..0553d848f6916f2047d0b90bf15be0f358e27f0b 100644 (file)
--- 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;