some debug improvement

diff --git a/generate-board b/generate-board
index 563202a71c3d9b970de205df3e3086ec2916742b..deed43f594f5a441fa88a924e9999815b65113a5 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -91,7 +91,8 @@ sub read_faces () {
        my $ai = ($last_ai-1+@edges) % @edges;
        $last_ai = $ai;
        my $adj = $rr->{Adj}[$ai];
-       confess Dumper($rr, \@edges, $ei, $adj, $last_ai, $ai)." ?"
+       confess Dumper($adj->{Name}, $edges[$ei]{Adjoins},
+                      $rr, \@edges, $ei, $adj, $last_ai, $ai)." ?"
            unless $adj->{Name} eq $edges[$ei]{Adjoins};
       
        for my $endi (0..1) {