From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 01:10:40 +0000 (+0000)
Subject: drop unused variable $ej
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=6d37c8d03496f7a3981f064549c7e7f3534fdcb8;p=pandemic-rising-tide.git

drop unused variable $ej
---

diff --git a/generate-board b/generate-board
index bd680f0..f71845c 100755
--- a/generate-board
+++ b/generate-board
@@ -80,7 +80,6 @@ sub read_faces () {
     $rr->{Polygon} = [ @edges ];
     if ($rr->{Name} ne 'NZ') {
       for my $ei (0..$#edges) {
-	my $ej = $ei % @edges;
 	if (!defined $last_ai) {
 	  my $ai;
 	  for my $ai (0..$#{ $rr->{Adj} }) {
@@ -92,7 +91,7 @@ sub read_faces () {
 	my $ai = ($last_ai-1+@edges) % @edges;
 	$last_ai = $ai;
 	my $adj = $rr->{Adj}[$ai];
-	confess Dumper($rr, \@edges, $ei, $ej, $adj, $last_ai, $ai)." ?"
+	confess Dumper($rr, \@edges, $ei, $adj, $last_ai, $ai)." ?"
 	    unless $adj->{Name} eq $edges[$ei]{Adjoins};
       
 	for my $endi (0..1) {