Author: dagolden
Date: Sat Jul 18 13:38:08 2009
New Revision: 13078
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Version.pm
Log:
Changes - prep for release
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sat Jul 18 13:38:08 2009
@@ -1,11 +1,15 @@
Revision history for Perl extension Module::Build.
-0.34_01 -
+0.34_01 - Sat Jul 18 16:32:09 EDT 2009
Enhancements:
- Added --debug flag to trace Build action execution (RT#47933)
[David Golden]
+ Bug-fixes:
+ - Bundled Module::Build::Version version code updated to fix unsafe use
+ of $@ (RT#47980) [John Peacock]
+
0.34 - Tue Jul 7 16:56:47 EDT 2009
No changes from 0.33_06
Modified: Module-Build/trunk/lib/Module/Build/Version.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Version.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Version.pm Sat Jul 18 13:38:08 2009
@@ -628,8 +628,10 @@
my $class = ref($obj) || $obj;
no strict 'refs';
- eval "require $class" unless %{"$class\::"}; # already existing
- return undef if $@ =~ /Can't locate/ and not defined $req;
+ 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
require Carp;
