(was Re: PerlIO regerssion tests?)

[p5sagit/p5-mst-13.2.git] / t / io / fs.t

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 {