Fixes for wipe

This commit is contained in:
Alessandro Ranellucci 2013-03-25 23:06:18 +01:00
parent ec5f0635f7
commit 843a700e96
2 changed files with 8 additions and 5 deletions

View file

@ -190,7 +190,7 @@ sub clip_start {
my $self = shift;
my ($distance) = @_;
my $points = [];
my $points = [ $self->[0] ];
for (my $i = 1; $distance > 0 && $i <= $#$self; $i++) {
my $point = $self->[$i];