Change 11527 by jhi@alpha on 2001/07/31 23:49:04
Subject: [PATCH perl@11487] fix fs.t for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 31 Jul 2001 14:57:43 -0500
Message-Id: <5.1.0.14.0.20010731145015.03743008@exchi01>
Affected files ...
... //depot/perl/t/io/fs.t#31 edit
Differences ...
==== //depot/perl/t/io/fs.t#31 (xtext) ====
Index: perl/t/io/fs.t
--- perl/t/io/fs.t.~1~ Tue Jul 31 18:00:05 2001
+++ perl/t/io/fs.t Tue Jul 31 18:00:05 2001
@@ -256,6 +256,8 @@
# check if rename() works on directories
if ($Is_VMSish) {
+ # must have delete access to rename a directory
+ `set file tmp.dir/protection=o:d`;
rename 'tmp.dir', 'tmp1.dir' or print "not ";
}
else {
End of Patch.
