summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-15 08:20:39 +0000
committerNorbert Preining <preining@logic.at>2008-01-15 08:20:39 +0000
commitc7b18afcdbe07eb1d34115ba7fb3b214117edf0f (patch)
treea6ae047af21ebf45864d6c72bc2242941abe23b7 /Master/tlpkg
parentc8f94883e0582bc1b160d9419bfdd2925ee41265 (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.pm9
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";
+ }
}
}