diff options
| author | mertz | 2002-04-23 14:38:36 +0000 |
|---|---|---|
| committer | mertz | 2002-04-23 14:38:36 +0000 |
| commit | adc259e569a6ebebb215b82a6f59d8141484e933 (patch) | |
| tree | 2a399be9977df20114a3bc7743ae6c8b8d945c97 /Perl/debug | |
| parent | e7f511127435e3369b2b37c863fa27028f8c186c (diff) | |
| download | tkzinc-adc259e569a6ebebb215b82a6f59d8141484e933.zip tkzinc-adc259e569a6ebebb215b82a6f59d8141484e933.tar.gz tkzinc-adc259e569a6ebebb215b82a6f59d8141484e933.tar.bz2 tkzinc-adc259e569a6ebebb215b82a6f59d8141484e933.tar.xz | |
(!defined @faces) est obsol�te!
Diffstat (limited to 'Perl/debug')
| -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) { |