summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-13 18:47:19 +0000
committerNorbert Preining <preining@logic.at>2008-01-13 18:47:19 +0000
commiteacb870da9eb77f3a0adfff6b1da8de43119c212 (patch)
treee4dfa5c229cb8ab439c368fc67c92e838665a581 /Master/install-tl.pl
parenta5ef1b8118d74c0365a700eca71a691819ea47c7 (diff)
write profile unconditionally, and require Tk::Dialog; ...
git-svn-id: svn://tug.org/texlive/trunk@6212 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl14
1 files changed, 5 insertions, 9 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 9be844a404d..764e76bbfb2 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -281,13 +281,10 @@ if (defined($::LOGFILE)) {
dump_vars("$system_tmpdir/texlive.vars");
-# if we installed from a profile we don't need to write it out
-if (-r "$vars{'TEXDIR'}/$InfraLocation/texlive.profile") {
- tllog($::LOG_NORMAL, "Not overwriting already present profile in $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n");
-} else {
- create_profile("$vars{'TEXDIR'}/$InfraLocation/texlive.profile");
- tllog($::LOG_DEBUG, "Profile written to $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n");
-}
+# write the profile out
+create_profile("$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);
@@ -799,8 +796,7 @@ sub do_texmf_cnf {
if (win32()) {
# on Windows we set TEXMFHOME to TEXMFLOCAL until we know how to
# expand dynamically in kpse to getenv(PROFILEPATH)
- #push @newtmf, "TEXMFHOME = \$TEXMFLOCAL\n";
- push @newtmf, "TEXMFHOME = \$HOMEDRIVE\$HOMEPATH/texmf\n";
+ push @newtmf, "TEXMFHOME = \$USERPROFILE/texmf\n";
} else {
# on unix we ignore any setting done in the config dialog and leave
# TEXMFHOME as is, i.e., ~/texmf