From a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 2 Dec 2002 16:29:03 +0000
Subject: correction d'une erreur qui rendait coords0 inutilisable

---
 Perl/Zinc.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl/Zinc.pm')

diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index 2161e12..624b45f 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -73,7 +73,7 @@ sub coords0 {
 	    ## coord0 will return a flatten list of (x, y, ... x , y)
 	    my @res0;
 	    foreach my $ref (@res) {
-		my @array = ${$ref};
+		my @array = @{$ref};
 	        if ($#array > 1) {
 		   my $item = $_[1];
 		   my $zinc = $_[0];
@@ -88,7 +88,7 @@ sub coords0 {
     }
     else {
 	## contexte scalaire
-	## le résultats n'étais pas utilisés jusqu'à présent, vu le bug...
+	## le résultat n'était pas utilisé jusqu'à présent, vu le bug...
 	## donc inutile de le convertir!
 	return &Tk::Zinc::coords(@_);
     }
-- 
cgit v1.1