From d6479f15e67cc2dec0f8610a496dc781cd6d7bed Mon Sep 17 00:00:00 2001 From: Piotr Strzelczyk Date: Thu, 3 Sep 2009 23:36:09 +0000 Subject: use the same code for win32 and unix git-svn-id: svn://tug.org/texlive/trunk@15047 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 21 ++++++--------------- 1 file 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; } -- cgit v1.2.3