From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 23 May 2008 15:50:14 +0000 (+0000)
Subject: File::Copy does not copy source file permissions to the target file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32d6804057169aca603de4c89334205f9a70b96e;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 1107f53..0868ea9 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]) [$_]}