Update Module::Load to 0.12 (Was Re: Module::Load 0.12 wanna be

(was Re: [patch@31735] Module-load/require fixes for VMS))
	From: "Jos I. Boumans" <kane@cpan.org>
	Message-id: <594A1762-D3E1-47AD-BBED-121E315D89BF@cpan.org>
p4raw-link: @31735 on //depot/perl: 646c27d472ef3530ad06b94bc11148eca940fc51

p4raw-id: //depot/perl@31869

diff --git a/MANIFEST b/MANIFEST
index 1ca6710..1d2a90b 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3747,8 +3747,8 @@ t/op/numconvert.t         See if accessing fields does not change numeric values
 t/op/oct.t                     See if oct and hex work
 t/op/ord.t                     See if ord works
 t/op/or.t                      See if || works in weird situations
-t/op/override.t                        See if operator overriding works
 t/op/overload_integer.t                        See if overload::constant for integer works after "use".   
+t/op/override.t                        See if operator overriding works
 t/op/pack.t                    See if pack and unpack work
 t/op/pat.t                     See if esoteric patterns work
 t/op/pos.t                     See if pos works

diff --git a/lib/Module/Load.pm b/lib/Module/Load.pm
index 231a8a7..f302c0a 100644 (file)
--- a/lib/Module/Load.pm
+++ b/lib/Module/Load.pm
@@ -1,6 +1,6 @@
 package Module::Load;
 
-$VERSION = '0.10';
+$VERSION = '0.12';
 
 use strict;
 use File::Spec ();
@@ -56,6 +56,13 @@ sub _to_file{
                     : File::Spec->catfile( @parts );
 
     $file   .= '.pm' if $pm;
+    
+    ### on perl's before 5.10 (5.9.5@31746) if you require
+    ### a file in VMS format, it's stored in %INC in VMS
+    ### format. Therefor, better unixify it first
+    ### Patch in reply to John Malmbergs patch (as mentioned
+    ### above) on p5p Tue 21 Aug 2007 04:55:07
+    $file = VMS::Filespec::unixify($file) if $^O eq 'VMS';
 
     return $file;
 }
@@ -154,20 +161,22 @@ C<Module::Load> cannot do implicit imports, only explicit imports.
 to import from a module, even if the functions are in that modules'
 C<@EXPORT>)
 
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Jonas B. Nielsen for making explicit imports work.
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-module-load@rt.cpan.org<gt>.
+
 =head1 AUTHOR
 
 This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
 
-Thanks to Jonas B. Nielsen for making explicit imports work.
-
 =head1 COPYRIGHT
 
-This module is
-copyright (c) 2002 Jos Boumans E<lt>kane@cpan.orgE<gt>.
-All rights reserved.
+This library is free software; you may redistribute and/or modify it 
+under the same terms as Perl itself.
 
-This library is free software;
-you may redistribute and/or modify it under the same
-terms as Perl itself.
 
 =cut                               

diff --git a/lib/Module/Load/t/01_Module-Load.t b/lib/Module/Load/t/01_Module-Load.t
index 74d2b05..f811447 100644 (file)
--- a/lib/Module/Load/t/01_Module-Load.t
+++ b/lib/Module/Load/t/01_Module-Load.t
@@ -18,9 +18,6 @@ use Test::More tests => 13;
     my $mod = 'Must::Be::Loaded';
     my $file = Module::Load::_to_file($mod,1);
 
-    # %INC on VMS has all keys in UNIX format
-    $file = VMS::Filespec::unixify($file) if $^O eq 'VMS';
-
     eval { load $mod };
 
     is( $@, '', qq[Loading module '$mod'] );