diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 41b83cc8e9a..736d5b830df 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1685,7 +1685,6 @@ sub info { my $str = join("", @_); my $fh = ($::machinereadable ? \*STDERR : \*STDOUT); logit($fh, 0, $str); - chomp($str); for my $i (@::info_hook) { &{$i}($str); } @@ -1708,7 +1707,6 @@ sub debug { my $str = "D:" . join("", @_); return if ($::opt_verbosity < 1); logit(\*STDOUT, 1, $str); - chomp($str); for my $i (@::debug_hook) { &{$i}($str); } @@ -1731,7 +1729,6 @@ sub ddebug { my $str = "DD:" . join("", @_); return if ($::opt_verbosity < 2); logit(\*STDOUT, 2, $str); - chomp($str); for my $i (@::ddebug_hook) { &{$i}($str); } @@ -1754,7 +1751,6 @@ sub dddebug { my $str = "DDD:" . join("", @_); return if ($::opt_verbosity < 3); logit(\*STDOUT, 3, $str); - chomp($str); for my $i (@::dddebug_hook) { &{$i}($str); } @@ -1790,7 +1786,6 @@ sub tlwarn { my $str = join("", @_); $::opt_quiet = 0; logit (\*STDERR, -100, $str); - chomp($str); $::opt_quiet = $savequiet; for my $i (@::warn_hook) { &{$i}($str); |