[Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.77.tar.gz]
John Peacock <[email protected]>
| Newsgroups | gmane.comp.lang.perl.modules.module-build |
|---|---|
| Message-ID | <[email protected]> |
The uploaded file
version-0.77.tar.gz
has entered CPAN as
file: $CPAN/authors/id/J/JP/JPEACOCK/version-0.77.tar.gz
size: 103851 bytes
md5: 6f9ff4cf7d15d31f343ccebccbb71c68
No action is required on your part
Request entered by: JPEACOCK (John Peacock)
Request entered on: Sun, 26 Jul 2009 11:49:13 GMT
Request completed: Sun, 26 Jul 2009 11:49:40 GMT
----
At long last, I've released version-0.77 to CPAN for inclusion in Perl 5.10.1.
The remaining changes (which resolves RT#47980) for M::B are as follows:
=== lib/Module/Build/Version.pm
==================================================================
--- lib/Module/Build/Version.pm (revision 2644)
+++ lib/Module/Build/Version.pm (local)
@@ -628,17 +628,13 @@
my $class = ref($obj) || $obj;
no strict 'refs';
- unless (%{"$class\::"}) { # class not already loaded
- eval "require $class";
- return undef if $@ =~ /Can't locate/ and not defined $req;
- }
-
- if ( not %{"$class\::"} and $] >= 5.008) { # file but no package
+ if ( exists $INC{"$class.pm"} and not %{"$class\::"} and $] >= 5.008) {
+ # file but no package
require Carp;
Carp::croak( "$class defines neither package nor VERSION"
."--version check failed");
}
-
+
my $version = eval "\$$class\::VERSION";
if ( defined $version ) {
local $^W if $] <= 5.008;