From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 01:41:26 +0000 (+0000)
Subject: some debug improvement
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=8347ece312f8112a59f71f80143cbdb851fc8e22;p=pandemic-rising-tide.git

some debug improvement
---

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