more debug and check

diff --git a/parse-input-graph b/parse-input-graph
index cec240a9d5ae07bc1f32a5397e1931998afb3bc8..8ca5fff214aa0e52cf378050c4091301c2ffd844 100755 (executable)
--- 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;
+    }
   }
 }