Change 33916 by [EMAIL PROTECTED] on 2008/05/23 15:50:14
File::Copy does not copy source file permissions to the target file
on VMS (it never has, but the new tests expected it to).
Affected files ...
... //depot/perl/lib/File/Copy.t#13 edit
Differences ...
==== //depot/perl/lib/File/Copy.t#13 (xtext) ====
Index: perl/lib/File/Copy.t
--- perl/lib/File/Copy.t#12~33804~ 2008-05-10 08:37:03.000000000 -0700
+++ perl/lib/File/Copy.t 2008-05-23 08:50:14.000000000 -0700
@@ -226,7 +226,10 @@
}
-{
+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]) [$_]}
End of Patch.
