From 1a819c73ebbe6ff3309344e05648ec114ab974f0 Mon Sep 17 00:00:00 2001 From: ribet Date: Wed, 6 Jun 2007 14:51:11 +0000 Subject: Suppression d'un warning --- src/MTools/Anim/MPath.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/MTools/Anim/MPath.pm b/src/MTools/Anim/MPath.pm index 910cfb5..27ee976 100644 --- a/src/MTools/Anim/MPath.pm +++ b/src/MTools/Anim/MPath.pm @@ -102,7 +102,7 @@ sub start { my ($self) = @_; my @points = @{$self -> mget ('path')}; - if (!defined @points || @points <= 0) {return;} + if (!@points) {return;} $self -> {__x} = $points [0] -> [0]; $self -> {__y} = $points [0] -> [1]; my $pacing = new Anim::Pacing::Linear (-duration => $self -> mget ('duration')); -- cgit v1.1