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

[Craig A . Berry]

Change 31361 by [EMAIL PROTECTED] on 2007/06/08 18:43:10

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

Affected files ...

... //depot/perl/lib/File/Path.t#10 edit

Differences ...

==== //depot/perl/lib/File/Path.t#10 (xtext) ====
Index: perl/lib/File/Path.t
--- perl/lib/File/Path.t#9~31357~       2007-06-08 03:35:34.000000000 -0700
+++ perl/lib/File/Path.t        2007-06-08 11:43:10.000000000 -0700
@@ -81,6 +81,8 @@
     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 @@
     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");
End of Patch.