fix fs.t for VMS

Message-Id: <5.1.0.14.0.20010731145015.03743008@exchi01>

p4raw-id: //depot/perl@11527

diff --git a/t/io/fs.t b/t/io/fs.t
index fb8b8f1..bd07833 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -256,6 +256,8 @@ chdir $wd || die "Can't cd back to $wd";
 
 # 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 {