From c0dbd65a0c3e0b66d69b8fcc827f8380a7b35767 Mon Sep 17 00:00:00 2001 From: ribet Date: Wed, 13 Jun 2007 18:36:31 +0000 Subject: Never expect equality on non integer values --- src/MTools/Anim/MPath.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/MTools') diff --git a/src/MTools/Anim/MPath.pm b/src/MTools/Anim/MPath.pm index ba62de2..eb8b221 100644 --- a/src/MTools/Anim/MPath.pm +++ b/src/MTools/Anim/MPath.pm @@ -144,7 +144,7 @@ sub __getPoint { my $y = $points [$#points] -> [1]; my $vx = 0; my $vy = 0; - if ($percentage != 100) { + if ($percentage < 100) { for (my $i = 0; $i < @points - 1; $i ++) { $vx = $x = $points [$i + 1] -> [0] - $points [$i] -> [0]; -- cgit v1.1