aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/debug/LogoZinc.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm
index 5f5475b..7cedecf 100644
--- a/Perl/debug/LogoZinc.pm
+++ b/Perl/debug/LogoZinc.pm
@@ -194,7 +194,7 @@ sub polyLine {
my @pts = ();
my @previous = ($x0, $y0);
- return undef if (!defined @faces);
+ return undef if ($#faces == -1);
foreach (@faces) {