Fix regression in chained_path() introduced in fb763b0187. Includes regression test. #1184

This commit is contained in:
Alessandro Ranellucci 2013-11-02 18:00:55 +01:00
parent 4755e61d71
commit 849d69d178
2 changed files with 14 additions and 3 deletions

View file

@ -800,7 +800,7 @@ sub chained_path {
}
while (@points) {
my $idx = $start_near->nearest_point_index(\@points);
my ($start_near) = splice @points, $idx, 1;
($start_near) = splice @points, $idx, 1;
push @result, $indices{$start_near};
}