diff options
| -rw-r--r-- | Perl/Zinc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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(@_); } |