Re: Win32 modules & cygwin

[p5sagit/p5-mst-13.2.git] / ext / Win32API / File / t / file.t

diff --git a/win32/ext/Win32API/File/t/file.t b/ext/Win32API/File/t/file.t
similarity index 99%
rename from win32/ext/Win32API/File/t/file.t
rename to ext/Win32API/File/t/file.t
index f7f16c5..27cfc28 100644 (file)
--- a/win32/ext/Win32API/File/t/file.t
+++ b/ext/Win32API/File/t/file.t
@@ -233,7 +233,12 @@ $ok= ! DeleteFile( "Moved.cp" )
 $ok or print "# ",fileLastError(),"\n";
 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 35
 
-system( "attrib -r Moved.cp" );
+if ($^O eq 'cygwin') {
+    chmod( 0200 | 07777 & (stat("Moved.cp"))[2], "Moved.cp" );
+}
+else {
+    system( "attrib -r Moved.cp" );
+}
 
 $ok= DeleteFile( "Moved.cp" );
 $ok or print "# ",fileLastError(),"\n";