From 291c88afbe2b27948e4eea55680e7643428719a6 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 10 Jan 2008 11:01:16 +0000
Subject: close logfile at the end

git-svn-id: svn://tug.org/texlive/trunk@6177 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/install-tl.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Master/install-tl.pl')

diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 1a18e5b0a8e..9ebd7078066 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -269,6 +269,11 @@ if (-r "$vars{'TEXDIR'}/$InfraLocation/texlive.profile") {
   tllog($::LOG_DEBUG, "Profile written to $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n");
 }
 
+
+# Close log file if present
+close($::LOGFILE) if defined($::LOGFILE);
+
+
 exit(0);
 
 
@@ -286,7 +291,7 @@ sub dump_vars {
     print VARS "$key $vars{$key}\n";
   }
   close VARS;
-  print "\n%vars dumped to '$filename'.\n";
+  tllog($::LOG_DEBUG, "\n%vars dumped to '$filename'.\n");
 }
 
 
-- 
cgit v1.2.3