diff options
| author | etienne | 2003-05-16 14:23:46 +0000 |
|---|---|---|
| committer | etienne | 2003-05-16 14:23:46 +0000 |
| commit | 1678e1a41abb99804e2f5b402ebc77204de3e5b5 (patch) | |
| tree | 335d1ce9523f103d15ee4eec6dcf49ea43494998 /Perl | |
| parent | 17bab7711dfa5d952901f72dad79e8defb897994 (diff) | |
| download | tkzinc-1678e1a41abb99804e2f5b402ebc77204de3e5b5.zip tkzinc-1678e1a41abb99804e2f5b402ebc77204de3e5b5.tar.gz tkzinc-1678e1a41abb99804e2f5b402ebc77204de3e5b5.tar.bz2 tkzinc-1678e1a41abb99804e2f5b402ebc77204de3e5b5.tar.xz | |
correction vilaine coquille
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/Zinc/Trace.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm index 0d11b54..ad0015f 100644 --- a/Perl/Zinc/Trace.pm +++ b/Perl/Zinc/Trace.pm @@ -49,7 +49,7 @@ sub Tk::Zinc::WidgetMethod { $filename="" unless defined $filename; $line="" unless defined $line; print "TRACE: $filename line $line $name"; - &printList (@_); + &printList (@args); # invoke function possibly overloaded in other modules if (wantarray()) { my @res = &$WidgetMethodfunction(@_) if $WidgetMethodfunction; |