From 8347ece312f8112a59f71f80143cbdb851fc8e22 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Mar 2019 01:41:26 +0000 Subject: [PATCH] some debug improvement --- generate-board | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/generate-board b/generate-board index 563202a..deed43f 100755 --- 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) { -- 2.30.2