John E. Malmberg wrote:
> Steve Hay wrote:
>> Craig A.Berry wrote:
>>
>>> Change 31726 by [EMAIL PROTECTED] on 2007/08/16 17:05:48
>>>
>>> Subject: [EMAIL PROTECTED] fix
>>
>> for VMS
>>
>>> From: "John E. Malmberg" <[EMAIL PROTECTED]>
>>> Date: Thu, 16 Aug 2007 00:27:35 -0500
>>> Message-id: <[EMAIL PROTECTED]>
>>
>>
>> This breaks on Win32. File::Spec->splitpath() returns three items,
>> which don't necessarily have the correct flavour of slash (backslash
>> or forward slash) on Win32:
>>
>>
$INC{'Module/Load/Conditional.pm'}='../../../../Module/Load/Conditional.
>> pm' @rv_path = ('', '..\..\..\..\Module\Load\', 'Conditional.pm')
>>
File::Spec::Unix->catfile(@rv_path)='..\..\..\..\Module\Load\/Conditiona
>> l.pm'
>>
>> I've therefore put a splitdir() call back into the test to break down
>> that list of directories, so that they can all get joined back
>> together in Unix style (change #31727). Hope it's still OK on VMS!
>
> Splitdir can only be portably used on path specifications that only
> contain directories. $rv-{file} contains a file specification, and so
> does the resulting @rv_path.
>
> This patch breaks VMS again.
Are you sure? I deliberately only ran splitdir() on $rv_path[1] (the
portion of @rv_path that contains the directories only) to try to avoid
problems like this.
