From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 1 Sep 2009 14:52:47 +0000 (+0100)
Subject: Don't choke on apsp discrepancy for arch-isolated islands
X-Git-Tag: 3.4~46
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=697b9c2b3e6472107aa6364cd1d4bed04b5cd633

Don't choke on apsp discrepancy for arch-isolated islands
---

diff --git a/yarrg/yppedia-chart-parser b/yarrg/yppedia-chart-parser
index 44a143b..4ce6bce 100755
--- a/yarrg/yppedia-chart-parser
+++ b/yarrg/yppedia-chart-parser
@@ -494,6 +494,7 @@ END
 
     my $result= Graph::Undirected->new();
     foreach my $edge_ac ($g->edges()) {
+        $result->add_vertex($edge_ac->[0]); # just in case
         next if $edge_ac->[0] eq $edge_ac->[1];
 	my $edgename_ac= join ' .. ', @$edge_ac;
 	printf DEBUG "spr %s edge %s\n", $what, $edgename_ac;