summaryrefslogtreecommitdiff
path: root/lib/File/Copy.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/File/Copy.t')
-rwxr-xr-xlib/File/Copy.t5
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]) [$_]}