From a6519ce52e9a111c63dcac09550a5e847464c6bb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 15:35:49 +0000
Subject: [PATCH] more debug and check

---
 parse-input-graph | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/parse-input-graph b/parse-input-graph
index cec240a..8ca5fff 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -187,6 +187,17 @@ sub dual () {
   foreach my $cc ($g->connected_components) {
     print STDERR "CC:\n";
     print STDERR "    $_\n" foreach @$cc;
+    my %uniq;
+    foreach my $e (@$cc) {
+      $e =~ m/ \# \d+$/ or confess;
+      push @{ $uniq{$`} }, $e;
+    }
+    foreach my $u (values %uniq) {
+      next if @$u == 1;
+      my ($x,$y) = @$u or confess;
+      my @p = $g->SP_Dijkstra($x, $y);
+      confess join ' -- ', @p;
+    }
   }
 }
 
-- 
2.30.2