From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 8 Jun 2007 18:43:10 +0000 (+0000)
Subject: A couple of File::Path tests require unix syntax on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa06c9c1dceeb58bb75c4cd7ac36d5aaac6840a6;p=p5sagit%2Fp5-mst-13.2.git

A couple of File::Path tests require unix syntax on VMS.

p4raw-id: //depot/perl@31361
---

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 9d047ae..d68351b 100755
--- a/lib/File/Path.t
+++ b/lib/File/Path.t
@@ -81,6 +81,8 @@ is(scalar(@created), 0, "skipped making existing directories (old style 1)")
     or diag("unexpectedly recreated @created");
 
 $dir = catdir($tmp_base,'C');
+# mkpath returns unix syntax filespecs on VMS
+$dir = VMS::Filespec::unixify($dir) if $^O eq 'VMS';
 @created = mkpath($tmp_base, $dir);
 is(scalar(@created), 1, "created directory (new style 1)");
 is($created[0], $dir, "created directory (new style 1) cross-check");
@@ -90,6 +92,8 @@ is(scalar(@created), 0, "skipped making existing directories (old style 2)")
     or diag("unexpectedly recreated @created");
 
 $dir2 = catdir($tmp_base,'D');
+# mkpath returns unix syntax filespecs on VMS
+$dir2 = VMS::Filespec::unixify($dir2) if $^O eq 'VMS';
 @created = mkpath($tmp_base, $dir, $dir2);
 is(scalar(@created), 1, "created directory (new style 2)");
 is($created[0], $dir2, "created directory (new style 2) cross-check");