diff options
| author | Jos I. Boumans <kane@dwim.org> | 2007-09-14 16:03:14 +0200 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-09-14 22:45:53 +0000 |
| commit | 0df8d4ee0c65e28eff2abc123584945e677a74c4 (patch) | |
| tree | ed430add72ca13ff8ad0f60ba34ab713789f7248 /lib | |
| parent | edd11d75de0f04be0ff778f7a463c770919a787b (diff) | |
| download | perl-0df8d4ee0c65e28eff2abc123584945e677a74c4.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Module/Load.pm | 27 | ||||
| -rw-r--r-- | lib/Module/Load/t/01_Module-Load.t | 3 |
2 files changed, 18 insertions, 12 deletions
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'] ); |