From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 4 Jul 2007 16:27:16 +0000 (+0000)
Subject: New File::Path tests require unix syntax on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=181b7e95925b791c6e8c36e215c62307ecffe5e7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)");