Module::Load::Conditional 0.18 wannabe (was Re: [patch@31735] Module-load/require fixes for VMS)

[Jos I. Boumans]

Hi Guys,

On Aug 21, 2007, at 4:55 AM, John E. Malmberg wrote:

--- /rsync_root/perl/lib/Module/Load/Conditional/t/ 01_Module_Load_Conditional.t Fri Aug 17 05:56:59 2007 +++ lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t Mon Aug 20 20:08:03 2007

@@ -54,8 +54,9 @@
        @rv_path = File::Spec::Unix->splitpath($rv->{file});
     } else {
        @rv_path = File::Spec->splitpath($rv->{file});
+       @rv_path = ($rv_path[0],
+                   File::Spec->splitdir($rv_path[1]), $rv_path[2]);
     }


     # First element could be blank for some system types like VMS
     shift @rv_path if $rv_path[0] eq '';
@@ -169,7 +170,6 @@
     {   package A::B::C::D;
         $A::B::C::D::VERSION = $$;
         $INC{'A/B/C/D.pm'}   = $$.$$;
-       $INC{'[.A.B.C]D.pm'} = $$.$$ if $^O eq 'VMS';
     }

     my $href = check_install( module => 'A::B::C::D', version => 0 );

- @rv_path = ($rv_path[0], File::Spec->splitdir($rv_path[1]), $rv_path[2]);

pass cleanly.


and let me know if this is now VMS-proof, i'll release it as 0.18.

--
        Jos Boumans

        From kid's Superman costume for Halloween (stitched into the    
        cape's tag) -- "Warning: Use of This Device Does Not Enable
        Wearer To Fly."

        CPANPLUS        http://cpanplus.sf.net

Attached is a development release of M::L::Conditional. It depends on the new version of Module::Load i mailed around earlier today. Using that, there shouldn't be any more need for the VMS specific quirks in the test suite, and they should John, Craig, if you guys could run the tests against the updated version of M::Load

Module-Load-Conditional-0.17_01.tar.gz
Description: GNU Zip compressed data