summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
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/install-tl.pl
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/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl24
1 files changed, 15 insertions, 9 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 02ae6f10f48..dac03e69baf 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -55,6 +55,7 @@ use strict;
#
$::LOGLEVELFILE = $::LOG_NORMAL;
$::LOGLEVELTERMINAL = $::LOG_NORMAL;
+@::LOGLINES = ();
#
# $install{$packagename} == 1 if it should be installed
my %install;
@@ -144,15 +145,6 @@ if ($opt_ddebug) {
if ($opt_dddebug) {
$::LOGLEVELFILE = $::LOG_DDDEBUG;
}
-# try to open a log file
-if ($::LOGLEVELFILE > $::LOG_ZERO) {
- if (open(LOGF,">install-tl.log")) {
- $::LOGFILE = \*LOGF;
- } else {
- warn("Cannot create log file install-tl.log: $!\nContinuing without log file!\n");
- $::LOGLEVELFILE = $::LOG_ZERO;
- }
-}
if ("$opt_media" =~ m/^CD/i) {
$::_media_ = "CD";
} elsif ("$opt_media" =~ m/^NET/i) {
@@ -270,6 +262,20 @@ if (!$finished) {
do_installation();
}
+# now open the log file and write out the log lines
+# try to open a log file
+if ($::LOGLEVELFILE > $::LOG_ZERO) {
+ if (open(LOGF,">$vars{'TEXDIR'}/install-tl.log")) {
+ $::LOGFILE = \*LOGF;
+ foreach my $line(@::LOGLINES) {
+ print $::LOGFILE "$line";
+ }
+ } else {
+ warn("Cannot create log file $vars{'TEXDIR'}/install-tl.log: $!\nNot writing out log lines!\n");
+ $::LOGLEVELFILE = $::LOG_ZERO;
+ }
+}
+
# dump various things to the log file
if (defined($::LOGFILE)) {
print $::LOGFILE "\nDump of vars:\n";