diff options
author | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-09-03 21:21:58 +0000 |
---|---|---|
committer | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-09-03 21:21:58 +0000 |
commit | 9888383ec4a546a5b43679d14087e79853f889fb (patch) | |
tree | fc79d795c46a064bd68b4ee5dee2148d12a95faf | |
parent | 6f9bdf0b75b74b51f8db19ed7973122e3ae809ac (diff) |
dir_writable test with copy nul
git-svn-id: svn://tug.org/texlive/trunk@15042 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f26976e244a..4a05df23939 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -548,7 +548,7 @@ sub dir_writable { my $fb = $f; $fb =~ s!/!\\!g; return 0 if - system('copy /b ' . $ENV{'COMSPEC'} . ' "' . $fb . '" >nul 2>&1'); + system('copy /b nul "' . $fb . '" >nul 2>&1'); unlink $f if -e $f; return 1; } else { |