Bad memory access in regular_points()

This commit is contained in:
Alessandro Ranellucci 2013-10-27 20:48:50 +01:00
parent 58d92ac36a
commit a99d34a91a
2 changed files with 3 additions and 3 deletions

View file

@ -113,7 +113,7 @@ sub clip_start {
my ($distance) = @_;
my @my_points = @$self;
my $points = [ $my_points[0] ];
my $points = [ $my_points[0]->clone ];
for (my $i = 1; $distance > 0 && $i <= $#my_points; $i++) {
my $point = $my_points[$i];
@ -140,7 +140,7 @@ sub regular_points {
my ($distance) = @_;
my @my_points = @$self;
my @points = ($my_points[0]);
my @points = ($my_points[0]->clone);
my $len = 0;
for (my $i = 1; $i <= $#my_points; $i++) {