summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2007-12-30 19:11:38 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2007-12-30 19:11:38 +0000
commit77682e20894aa737b8e8e4c1d09aa8db98293d05 (patch)
tree3c3c607e8fe1c5d7fdd0087dcb6cf9b5ba819388 /Master/install-tl.pl
parentb937bd9c2e26cee7cc8e757d3f9665121a559f29 (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-xMaster/install-tl.pl5
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';