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

p4raw-id: //depot/perl@31535

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 36ac5a9..8e4ce41 100755 (executable)
--- 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)");