diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-12-30 19:11:38 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-12-30 19:11:38 +0000 |
commit | 77682e20894aa737b8e8e4c1d09aa8db98293d05 (patch) | |
tree | 3c3c607e8fe1c5d7fdd0087dcb6cf9b5ba819388 /Master/install-tl.pl | |
parent | b937bd9c2e26cee7cc8e757d3f9665121a559f29 (diff) |
win-admin.pl, install-tl.pl: Check admin rights.
install-menu-text.pl: Removed "Perl for Windows" button.
git-svn-id: svn://tug.org/texlive/trunk@6001 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 08e6b1956e8..6dbfd7d4f69 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -191,7 +191,7 @@ do_postinst_stuff(); 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") { - warn "Not overwritting already present profile in $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n"; + warn "Not overwriting already present profile in $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n"; } else { create_profile("$vars{'TEXDIR'}/$InfraLocation/texlive.profile"); print "Profile written to $vars{'TEXDIR'}/$InfraLocation/texlive.profile\n"; @@ -249,7 +249,8 @@ sub set_texlive_default_dirs { $tex_prefix=getenv('TEXLIVE_INSTALL_PREFIX'); if (win32) { - if (-w getenv('ProgramFiles')) { + require("TeXLive/win-admin.pl"); + if (%vars{'win-admin'}) { $tex_prefix||=getenv('ProgramFiles') . '/texlive'; } else { $tex_prefix||=getenv('USERPROFILE') . '/texlive'; |