diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al index a11fd56468d..478f264a1dd 100644 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al @@ -50,9 +50,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) { |