diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Widget.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/Widget.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Widget.pm b/Master/tlpkg/tlperl/lib/Tk/Widget.pm index 96cd136b245..62cb5c44afb 100644 --- a/Master/tlpkg/tlperl/lib/Tk/Widget.pm +++ b/Master/tlpkg/tlperl/lib/Tk/Widget.pm @@ -3,7 +3,7 @@ # modify it under the same terms as Perl itself. package Tk::Widget; use vars qw($VERSION @DefaultMenuLabels); -$VERSION = '4.035'; # was: sprintf '4.%03d', q$Revision: #30 $ =~ /\D(\d+)\s*$/; +$VERSION = '4.036'; # was: sprintf '4.%03d', q$Revision: #30 $ =~ /\D(\d+)\s*$/; require Tk; use AutoLoader; @@ -1475,9 +1475,9 @@ sub bindDump { } } elsif ($callback =~ /ARRAY/) { if (ref $callback->[0]) { - push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0], "\n" ); + push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0] ); } else { - push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0], "\n" ); + push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0] ); } foreach my $arg (@$callback[1 .. $#$callback]) { if (ref $arg) { |