Some minor fixes related to polyline refactoring

This commit is contained in:
Alessandro Ranellucci 2012-01-27 14:29:06 +01:00
parent d63fd77da4
commit 4ade11b26e
3 changed files with 5 additions and 5 deletions

View file

@ -12,7 +12,7 @@ sub process_polyline {
my $self = shift;
my ($polyline, $bounding_box) = @_;
$_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @{$polyline->points};
$_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @$polyline;
}
1;