diff options
author | Norbert Preining <preining@logic.at> | 2008-05-18 16:07:52 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-18 16:07:52 +0000 |
commit | c190876ab91c373a2861cde3d958987ff81fc498 (patch) | |
tree | 09e1410dab803b92961349a9908565784d2c79ff /Master/tlpkg/TeXLive | |
parent | a8637b9bcb49517b84cecdbd52f0731d5af6ab5f (diff) |
tllog($::LOGNORMAL) now logs to stdout instead of stderr ... that
was a stupidity. But it has to be rehauled anyway.
git-svn-id: svn://tug.org/texlive/trunk@8209 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-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 { |