diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | lib/Module/Load.pm | 27 | ||||
| -rw-r--r-- | lib/Module/Load/t/01_Module-Load.t | 3 |
3 files changed, 19 insertions, 13 deletions
@@ -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 231a8a7535..f302c0a111 100644 --- 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 74d2b054ef..f811447df9 100644 --- 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'] ); |