diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 129c0576406..4a495ff6784 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1227,8 +1227,13 @@ sub tllog { } else { _tllog($::LOGLEVELFILE,\@::LOGLINES,$imp,@rest); } - my $stderr = \*STDERR; - _tllog($::LOGLEVELTERMINAL,$stderr,$imp,@rest); + my $out; + if ($imp == $::LOG_NORMAL) { + $out = \*STDOUT; + } else { + $out = \*STDERR; + } + _tllog($::LOGLEVELTERMINAL,$out,$imp,@rest); } sub _tllog { |