New File::Path tests require unix syntax on VMS.

p4raw-id: //depot/perl@31535

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 36ac5a9014..8e4ce411a0 100755
--- a/lib/File/Path.t
+++ b/lib/File/Path.t
@@ -136,6 +136,8 @@ ok(-d $dir,  "dir a still exists");
 ok(-d $dir2, "dir z still exists");
 
 $dir = catdir($tmp_base,'F');
+# mkpath returns unix syntax filespecs on VMS
+$dir = VMS::Filespec::unixify($dir) if $^O eq 'VMS';
 
 @created = mkpath($dir, undef, 0770);
 is(scalar(@created), 1, "created directory (old style 2 verbose undef)");