diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/debug/LogoZinc.pm | 2 |
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) { |