summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/Widget.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Widget.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/Widget.pm6
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) {