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 (executable)
--- 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 __ ($) {