summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm21
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;
}