diff options
author | Norbert Preining <preining@logic.at> | 2008-01-13 18:47:19 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-13 18:47:19 +0000 |
commit | eacb870da9eb77f3a0adfff6b1da8de43119c212 (patch) | |
tree | e4dfa5c229cb8ab439c368fc67c92e838665a581 /Master/install-tl.pl | |
parent | a5ef1b8118d74c0365a700eca71a691819ea47c7 (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-x | Master/install-tl.pl | 14 |
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 |