Author: dagolden
Date: Thu Mar  5 16:36:55 2009
New Revision: 12571

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
Caches ExtUtils::CBuilder object in a temporary stash instead of properties 


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Thu Mar  5 16:36:55 2009
@@ -6,6 +6,7 @@
  - Module::Build::Compat had stopped adding "PL_FILES => {}" when no
    PL_files property was set in Build.PL; restored old behavior and fixed
    tests and documentation related to this issue [David Golden]
+ - Caches ExtUtils::CBuilder object in a temporary stash instead of properties 
 
 0.32 - Wed Feb 25 17:40:02 PST 2009
 

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Thu Mar  5 16:36:55 2009
@@ -129,6 +129,7 @@
                                   %input,
                                  },
                    phash => {},
+                    stash => {}, # temporary caching, not stored in _build
                   }, $package;
 
   $self->_set_defaults;
@@ -4144,13 +4145,13 @@
   # Returns a CBuilder object
 
   my $self = shift;
-  my $p = $self->{properties};
-  return $p->{_cbuilder} if $p->{_cbuilder};
+  my $s = $self->{stash};
+  return $s->{_cbuilder} if $s->{_cbuilder};
   die "Module::Build is not configured with C_support"
          unless $self->_mb_feature('C_support');
 
   require ExtUtils::CBuilder;
-  return $p->{_cbuilder} = ExtUtils::CBuilder->new(
+  return $s->{_cbuilder} = ExtUtils::CBuilder->new(
     config => $self->config,
     ($self->quiet ? (quiet => 1 ) : ()),
   );

Reply via email to