Author: ericwilhelm
Date: Sat Nov 17 02:10:29 2007
New Revision: 10264
Modified:
Module-Build/trunk/lib/Module/Build/ModuleInfo.pm
Log:
lib/Module/Build/ModuleInfo.pm - make 'eval' package unique (bug #30747)
Modified: Module-Build/trunk/lib/Module/Build/ModuleInfo.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/ModuleInfo.pm (original)
+++ Module-Build/trunk/lib/Module/Build/ModuleInfo.pm Sat Nov 17 02:10:29 2007
@@ -289,6 +289,8 @@
$self->{pod_headings} = [EMAIL PROTECTED];
}
+{
+my $pn = 0;
sub _evaluate_version_line {
my $self = shift;
my( $sigil, $var, $line ) = @_;
@@ -298,8 +300,9 @@
# We compile into $vsub because 'use version' would cause
# compiletime/runtime issues with local()
my $vsub;
+ $pn++; # everybody gets their own package
my $eval = qq{BEGIN { q# Hide from _packages_inside()
- #; package Module::Build::ModuleInfo::_version;
+ #; package Module::Build::ModuleInfo::_version::p$pn;
no strict;
local $sigil$var;
@@ -324,6 +327,7 @@
return $result;
}
+}
############################################################
