diff options
| author | mertz | 2002-12-02 16:29:03 +0000 |
|---|---|---|
| committer | mertz | 2002-12-02 16:29:03 +0000 |
| commit | a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6 (patch) | |
| tree | c67fd605c9006dbed876982e152d5f34ad703764 /Perl/Zinc.pm | |
| parent | a0fed84d26f2490e06ef71bec210f9fb502737fa (diff) | |
| download | tkzinc-a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6.zip tkzinc-a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6.tar.gz tkzinc-a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6.tar.bz2 tkzinc-a7795c2eb6f1e912fecf87e76bbb13d734a3e6b6.tar.xz | |
correction d'une erreur qui rendait coords0 inutilisable
Diffstat (limited to 'Perl/Zinc.pm')
| -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(@_); } |