| Subject: | [PATCH] Tk/Widget.pm: fix perl syntax |
| Date: | Sat, 24 Feb 2007 15:42:21 +0300 |
| To: | bug-tk [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
---
Tk/Widget.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/Tk/Widget.pm b/Tk/Widget.pm
index e94c037..6ae26f3 100644
--- a/Tk/Widget.pm
+++ b/Tk/Widget.pm
@@ -1405,7 +1405,7 @@ sub bindDump {
} else {
push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0], "\n" );
}
- foreach my $arg (@$callback[1 .. $#{@$callback}]) {
+ foreach my $arg (@$callback[1 .. $#$callback]) {
if (ref $arg) {
push @out, sprintf( "%s %-40s", ' ' x $spc2, $arg );
} else {
--
1.5.0.1.GIT