File::Copy does not copy source file permissions to the target file

on VMS (it never has, but the new tests expected it to).

p4raw-id: //depot/perl@33916

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 1107f53bf0..0868ea9b35 100755
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -226,7 +226,10 @@ for my $cross_partition_test (0..1) {
 }
 
 
-{
+SKIP: {
+
+    skip "-- Copy preserves RMS defaults, not source file permissions.", 21 if $^O eq 'VMS';
+
     # Just a sub to get better failure messages.
     sub __ ($) {
         join "" => map {(qw [--- --x -w- -wx r-- r-x rw- rwx]) [$_]}