chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1b84b2e
)
Deltawerk
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 18:06:28 +0000
(18:06 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 18:06:42 +0000
(18:06 +0000)
Parse.pm
patch
|
blob
|
history
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?)(?: (\+\+?)(\@?))?$}) {
}
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;
if ($aref =~ m{\.}) {
$adj->{Pattern} = $aref;
$aref =~ s{\-}{[^- ]*-}g;