log file is now created in TEXDIR/install-tl.log

git-svn-id: svn://tug.org/texlive/trunk@6234 c570f23f-e606-0410-a88d-b1316a301751

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";