[svn:CPANPLUS-Dist-Build] r12997 - CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist

Author: BINGOS
Date: Sat Jul  4 06:56:22 2009
New Revision: 12997

Modified:
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm

Log:
Make install() honour the buildflags directive, absence spotted by Matt Trout

Modified: CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm
==============================================================================
--- CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm	(original)
+++ CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm	Sat Jul  4 06:56:22 2009
@@ -688,13 +688,15 @@
     my %hash = @_;
 
     
-    my $verbose; my $perl; my $force;
+    my $verbose; my $perl; my $force; my $buildflags;
     {   local $Params::Check::ALLOW_UNKNOWN = 1;
         my $tmpl = {
             verbose => { default => $conf->get_conf('verbose'),
                          store   => \$verbose },
             force   => { default => $conf->get_conf('force'),
                          store   => \$force },
+            buildflags => { default => $conf->get_conf('buildflags'),
+                            store   => \$buildflags },
             perl    => { default => $^X, store   => \$perl },
         };
     
@@ -725,7 +727,7 @@
     }
 
     my $fail;
-    my @buildflags = $dist->_buildflags_as_list( $dist->status->_buildflags );
+    my @buildflags = $dist->_buildflags_as_list( $buildflags );
     my $run_perl    = $conf->get_program('perlwrapper');
 
     ### hmm, how is this going to deal with sudo?