chiark / gitweb /
Don't choke on apsp discrepancy for arch-isolated islands
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 1 Sep 2009 14:52:47 +0000 (15:52 +0100)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 1 Sep 2009 14:52:47 +0000 (15:52 +0100)
yarrg/yppedia-chart-parser

index 44a143b..4ce6bce 100755 (executable)
@@ -494,6 +494,7 @@ END
 
     my $result= Graph::Undirected->new();
     foreach my $edge_ac ($g->edges()) {
 
     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;
         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;