From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 31 Jul 2001 14:57:43 +0000 (-0500)
Subject: fix fs.t for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9df548ee6c72d2540cc8aac7e738eff1202a7278;p=p5sagit%2Fp5-mst-13.2.git

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