fix fs.t for VMS

Message-Id: <5.1.0.14.0.20010731145015.03743008@exchi01>

p4raw-id: //depot/perl@11527

1 files changed, 2 insertions, 0 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index fb8b8f1507..bd07833cbd 100755
--- 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 {