drop unused variable $ej

diff --git a/generate-board b/generate-board
index bd680f08ab029d4804a3709a3b5b04a599e54882..f71845c53a74f8285ea56f71a9b583a6b97a4ebb 100755 (executable)
--- 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) {