diff options
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 8 |
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'; } |