install-tl: reverting to %programfiles% as default even if non-writable

git-svn-id: svn://tug.org/texlive/trunk@15172 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 84b058c294b..8c27feae0d5 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -993,9 +993,9 @@ sub set_texlive_default_dirs {
   $tex_prefix=getenv('TEXLIVE_INSTALL_PREFIX');
   if (win32) {
     my $prog = getenv('ProgramFiles');
-    # $tex_prefix ||= $prog . '/texlive';
-    $tex_prefix ||= $prog . '/texlive' if TeXLive::TLUtils::dir_writable($prog);
-    $tex_prefix||=getenv('APPDATA') . '/texlive';
+    $tex_prefix ||= $prog . '/texlive';
+    # if default is not writable, user has to pick another place manually
+    # USERPROFILE isn't an option, it is copied around on roaming setups
   } else {
     $tex_prefix||='/usr/local/texlive';
   }