Re: Change 31726: [patch@31706]01_module_load_conditional.t fix for VMS

[John E. Malmberg]

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.  I will not have time to submit a fix until 
later, as I had a 2 second power failure this morning just when I 
started to look at this.

-John
[EMAIL PROTECTED]
Personal Opinion Only