From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 2 Jun 2008 04:02:42 +0000 (+0000)
Subject: Skip some File::Copy tests on Win32 since file permissions do not
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7029ff372354ea903b727328797cc0bb1e03625d;p=p5sagit%2Fp5-mst-13.2.git

Skip some File::Copy tests on Win32 since file permissions do not
seem to be set correctly.

p4raw-id: //depot/perl@33986
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 0868ea9..a6fa3cf 100755
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -229,6 +229,7 @@ for my $cross_partition_test (0..1) {
 SKIP: {
 
     skip "-- Copy preserves RMS defaults, not source file permissions.", 21 if $^O eq 'VMS';
+    skip "Copy doesn't set file permissions correctly on Win32.", 21 if $^O eq "MSWin32";
 
     # Just a sub to get better failure messages.
     sub __ ($) {