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".
not essential and is therefore unnecessary.
END
+ # `
printf $debugfh "spr %s before %d\n", $what, scalar($g->edges());
sub yppedia_ocean_fetch_chart () {
if ($stdin_chart) {
- run_yppedia_chart_parse('STDIN');
+ run_yppedia_chart_parse('::STDIN');
} else {
yppedia_ocean_fetch_start(1);
- run_yppedia_chart_parse('OCEAN');
+ run_yppedia_chart_parse('::OCEAN');
yppedia_ocean_fetch_done();
}
}
die unless defined $arch;
$wtisland2arch{$'}= $arch;
} elsif (m/^ /) {
- $arch= $';
+ $arch= $'; # '
} else {
die;
}