TLUtils: add dir_creatable in addition to dir_writable. On Vista/W7

  in c:/ one can create directories, but not files!
TLUtils: use dir_creatable in texdir_check, since that is what we need
  for parent and parent
install-tl: on w32 if %ProgramFiles% is not writable fall back to 
  c:\texlive\NNNN


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

1 files changed, 6 insertions, 2 deletions

diff --git a/Master/install-tl b/Master/install-tl
index c609051e6ae..5aef80d493c 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -995,8 +995,12 @@ sub set_texlive_default_dirs {
   if (win32) {
     my $prog = getenv('ProgramFiles');
     $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
+    if (!TeXLive::TLUtils::texdir_check("$tex_prefix/$texlive_release")) {
+      # the default location is not writable, switch to C:\texlive
+      $tex_prefix = "c:/texlive";
+    }
+    # we don't use USERPROFILE here because that will be copied back and
+    # forth on roaming profiles
   } else {
     $tex_prefix||='/usr/local/texlive';
   }