texlive[54354] Master/tlpkg/tltcl/tltcl.tcl: Fixes for dir_writable

[commits+siepo at tug.org]

Revision: 54354
          http://tug.org/svn/texlive?view=revision&revision=54354
Author:   siepo
Date:     2020-03-16 21:33:10 +0100 (Mon, 16 Mar 2020)
Log Message:
-----------
Fixes for dir_writable

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2020-03-16 20:32:20 UTC (rev 54353)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2020-03-16 20:33:10 UTC (rev 54354)
@@ -548,17 +548,21 @@
 proc dir_writable {d} {
   for {set x 0} {$x<100} {incr x} {
     set y [expr {int(10000*rand())}]
-    set newfile [file join $::instroot $y]
+    set newfile [file join $d $y]
     if [file exists $newfile] {
       continue
     } else {
-      set fid [open $newfile w]
-      chan close $fid
-      if [file exists $newfile] {
-        file delete $newfile
-        return 1
+      if [catch {open $newfile w} fid] {
+        return 0
       } else {
-        return 0
+        chan puts $fid "hello"
+        chan close $fid
+        if [file exists $newfile] {
+          file delete $newfile
+          return 1
+        } else {
+          return 0
+        }
       }
     }
   }