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/Zinc/Trace.pm | |
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/Zinc/Trace.pm')
-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; |