diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4a05df23939..0fb03877d27 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -544,21 +544,12 @@ sub dir_writable { my $i = 0; while (-e $path . "/" . $i) { $i++; } my $f = $path."/".$i; - if (win32) { - my $fb = $f; - $fb =~ s!/!\\!g; - return 0 if - system('copy /b nul "' . $fb . '" >nul 2>&1'); - unlink $f if -e $f; - return 1; - } else { - return 0 unless open TEST, ">".$f; - my $written = 0; - $written = (print TEST "\n"); - close TEST; - unlink $f; - return $written; - } + return 0 unless open TEST, ">".$f; + my $written = 0; + $written = (print TEST "\n"); + close TEST; + unlink $f; + return $written; } |