From 2c4afb02e7325f8d204afaee921c0305e379940e Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 28 Feb 2019 13:32:48 +0000 Subject: [PATCH] wip --- generate-board | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/generate-board b/generate-board index bd0276a..d981907 100755 --- a/generate-board +++ b/generate-board @@ -66,14 +66,17 @@ sub read_faces () { $adj->{Ends}[$endi] = $edges[ ($ei + $endi) % @edges ]; } } + @edges = (); + $rr = undef; }; my $vxname; for (;;) { $!=0; $_=

// confess $!; last if m/^\&$/; if (m/^$sre$/) { + my $new_face= $2; $process_rr->() if $rr; - $rr= prs2rr($2); + $rr= prs2rr($new_face); } elsif (m/^\s+$sre$/) { confess unless $rr; $vxname = $2; -- 2.30.2