texlive[45748] Master/tlpkg/TeXLive/TLUtils.pm: debug prints to

[commits+preining at tug.org]

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);
   }