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.