diff options
Diffstat (limited to 'lib/File/Copy.t')
-rwxr-xr-x | lib/File/Copy.t | 5 |
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]) [$_]} |