patch@27236 vms glob/readdir/chdir EFS/long filename support

Message-ID: <43F92CE6.5040704@qsl.net>

p4raw-id: //depot/perl@27239

1 files changed, 1 insertions, 0 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 63b5efe7a5..283a5a82f4 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -58,6 +58,7 @@ if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) {
 }
 elsif ($^O eq 'VMS') {
     `if f\$search("[.tmp]*.*") .nes. "" then delete/nolog/noconfirm [.tmp]*.*.*`;
+    `if f\$search("tmp.dir") .nes. "" then set file/prot=o:rwed tmp.dir;`;
     `if f\$search("tmp.dir") .nes. "" then delete/nolog/noconfirm tmp.dir;`;
     `create/directory [.tmp]`;
 }