From adc259e569a6ebebb215b82a6f59d8141484e933 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 23 Apr 2002 14:38:36 +0000
Subject: (!defined @faces)  est obsol�te!

---
 Perl/debug/LogoZinc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl/debug/LogoZinc.pm')

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) {
-- 
cgit v1.1