diff options
author | Norbert Preining <preining@logic.at> | 2008-01-10 11:01:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-10 11:01:16 +0000 |
commit | 291c88afbe2b27948e4eea55680e7643428719a6 (patch) | |
tree | 23aa4bb83295d47dc1fde4c9eebdf74d9b9f4ec6 /Master | |
parent | 5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (diff) |
close logfile at the end
git-svn-id: svn://tug.org/texlive/trunk@6177 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/install-tl.pl | 7 |
1 files changed, 6 insertions, 1 deletions
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"); } |