summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl8
1 files changed, 3 insertions, 5 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 6eceb7f4863..23d3f3f77e8 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -414,11 +414,9 @@ sub set_texlive_default_dirs {
if (win32) {
#require("TeXLive/win-admin.pl");
$vars{'win-admin'} = admin();
- if ($vars{'win-admin'}) {
- $tex_prefix||=getenv('ProgramFiles') . '/texlive';
- } else {
- $tex_prefix||=getenv('USERPROFILE') . '/texlive';
- }
+ my $prog = getenv('ProgramFiles');
+ $tex_prefix ||= $prog . '/texlive' if TeXLive::TLWinGoo::dir_writable($prog);
+ $tex_prefix||=getenv('USERPROFILE') . '/texlive';
} else {
$tex_prefix||='/usr/local/texlive';
}