diff options
-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; |