texlive[45748] Master/tlpkg/TeXLive/TLUtils.pm: debug prints to
commits+preining at tug.org
commits+preining at tug.org
Sat Nov 11 08:34:44 CET 2017
Revision: 45748
http://tug.org/svn/texlive?view=revision&revision=45748
Author: preining
Date: 2017-11-11 08:34:43 +0100 (Sat, 11 Nov 2017)
Log Message:
-----------
debug prints to STDERR not STDOUT
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLUtils.pm
Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm 2017-11-11 07:34:35 UTC (rev 45747)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm 2017-11-11 07:34:43 UTC (rev 45748)
@@ -3199,7 +3199,7 @@
sub debug {
my $str = "D:" . join("", @_);
return if ($::opt_verbosity < 1);
- logit(\*STDOUT, 1, $str);
+ logit(\*STDERR, 1, $str);
for my $i (@::debug_hook) {
&{$i}($str);
}
@@ -3221,7 +3221,7 @@
sub ddebug {
my $str = "DD:" . join("", @_);
return if ($::opt_verbosity < 2);
- logit(\*STDOUT, 2, $str);
+ logit(\*STDERR, 2, $str);
for my $i (@::ddebug_hook) {
&{$i}($str);
}
@@ -3243,7 +3243,7 @@
sub dddebug {
my $str = "DDD:" . join("", @_);
return if ($::opt_verbosity < 3);
- logit(\*STDOUT, 3, $str);
+ logit(\*STDERR, 3, $str);
for my $i (@::dddebug_hook) {
&{$i}($str);
}
More information about the tex-live-commits
mailing list