diff options
author | Norbert Preining <preining@logic.at> | 2008-01-15 08:20:39 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-15 08:20:39 +0000 |
commit | c7b18afcdbe07eb1d34115ba7fb3b214117edf0f (patch) | |
tree | a6ae047af21ebf45864d6c72bc2242941abe23b7 /Master/tlpkg | |
parent | c8f94883e0582bc1b160d9419bfdd2925ee41265 (diff) |
log file is now created in TEXDIR/install-tl.log
git-svn-id: svn://tug.org/texlive/trunk@6234 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index a8939c42dca..af9f260a557 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1132,6 +1132,8 @@ sub tllog { my ($imp, @rest) = @_; if (defined($::LOGFILE)) { _tllog($::LOGLEVELFILE,$::LOGFILE,$imp,@rest); + } else { + _tllog($::LOGLEVELFILE,\@::LOGLINES,$imp,@rest); } my $stderr = \*STDERR; _tllog($::LOGLEVELTERMINAL,$stderr,$imp,@rest); @@ -1140,7 +1142,12 @@ sub tllog { sub _tllog { my ($threshold,$output,$imp, @rest) = @_; if ($imp <= $threshold) { - print $output "@rest"; + if (ref($output) eq "GLOB") { + # we are writing to a file handle + print $output "@rest"; + } else { + push @{$output}, "@rest"; + } } } |