dwdyke wip

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

diff --git a/Parse.pm b/Parse.pm
index 30648ba42f78987f538055af91b8b9b6366ca46a..205a0d343160c77f5676cae2f6191602571922ad 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -59,7 +59,8 @@ sub read_in () {
       $cregion = $name;
       next;
     }
-    if (my ($aref, $adykes) = m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?))?$}) {
+    if (my ($aref, $adykes, $dwdyke) =
+       m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?)(\@?))?$}) {
       my $adj = { Dykes => (length $adykes // 0), L => $. };
       if ($aref =~ m{\.}) {
        $adj->{Pattern} = $aref;