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?
