From 6d37c8d03496f7a3981f064549c7e7f3534fdcb8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 01:10:40 +0000
Subject: [PATCH] drop unused variable $ej

---
 generate-board | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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) {
-- 
2.30.2