$ccolour = $&;
next;
}
- if (my ($name, $water) = m{^\t(\S.*\w)(?: \[(\d+)\])?$}) {
+ if (my ($name, $water) = m{^\t(\S.*\w|L)(?: \[(\d+)\])?$}) {
confess unless defined $ccolour;
confess "$name ?" if $region{$name};
$region{$name}{Colour} = $ccolour;
$cregion = $name;
next;
}
- if (my ($aref, $adikes) = m{^\t\t(\S.*[A-Za-z.])(?: (\+\+?))?$}) {
+ if (my ($aref, $adikes) = m{^\t\t(\S.*[A-Za-z.]|L)(?: (\+\+?))?$}) {
my $adj = { Dikes => (length $adikes // 0), L => $. };
if ($aref =~ m{\.}) {
$adj->{Pattern} = $aref;
foreach my $adja (@{ $region{$ra}{Adj} }) {
my $rb = $adja->{Name};
my ($r0,$r1) = sort {
+ ($a eq 'L' ) <=> ($b eq 'L' ) or
($a eq 'NZ') <=> ($b eq 'NZ') or
$a cmp $b
} ($ra,$rb);
foreach my $r1 (sort keys %{ $edges{$r0} }) {
my $e = $edges{$r0}{$r1};
my $r1n = $r1;
- if ($r1 eq 'NZ') {
- $r1n = "_NZ $r0";
+ if ($r1 eq 'NZ' || $r1 eq 'L') {
+ $r1n = "_$r1 $r0";
next;
}
o "\"$r0\" -- \"$r1n\";\n";