From 697b9c2b3e6472107aa6364cd1d4bed04b5cd633 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 1 Sep 2009 15:52:47 +0100
Subject: [PATCH] Don't choke on apsp discrepancy for arch-isolated islands

---
 yarrg/yppedia-chart-parser | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
2.30.2