next unless exists $winode2island{$vertex};
my $ccix= $wiarchs->connected_component_by_vertex($vertex);
my @cc= $wiarchs->connected_component_by_index($ccix);
- my ($vx,$vy) = split /,/, $vertex;
+ my ($vx,$vy) = split /,/, $vertex; # /
my $d2= ($vx-$ax)*($vx-$ax) + ($vy-$ay)*($vy-$ay);
my $cmp= $best_d2 <=> $d2;
printf $debugfh "%2d,%-2d arch-island-search %5s d2=%4d cc%-2d".
if (!defined $wtarch) {
error("island from chart not found on ocean page: $island");
} elsif (defined $wiarch and $wtarch ne $wiarch) {
- error("island in $wtarch on ocean page but".
+# error("island in $wtarch on ocean page but".
+ warning("island in $wtarch on ocean page but".
" concluded $wiarch from chart: $island");
}
}
not essential and is therefore unnecessary.
END
+ # `
printf $debugfh "spr %s before %d\n", $what, scalar($g->edges());
die unless defined $arch;
$wtisland2arch{$'}= $arch;
} elsif (m/^ /) {
- $arch= $';
+ $arch= $'; # '
} else {
die;
}