Perl-Dist-WiX

changeset 1058:77193cede00c

Override whether a dist is considered core during toolchain

(and override a few)
author Curtis Jewell <perl@curtisjewell.name>
date Tue Jun 14 06:44:16 2011 -0600 (2011-06-14)
parents 3622630c0e90
children cb8dc2759add
files lib/Perl/Dist/WiX/Mixin/BuildPerl.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Mixin/BuildPerl.pm	Tue Jun 14 06:34:28 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Mixin/BuildPerl.pm	Tue Jun 14 06:44:16 2011 -0600
     1.3 @@ -603,6 +603,10 @@
     1.4  		my $release_testing   = 0;
     1.5  		my $overwritable      = 0;
     1.6  		my $force             = $default_force;
     1.7 +		my $core =
     1.8 +		  exists $Module::CoreList::version{$perl_version}{$module_id}
     1.9 +		  ? 1
    1.10 +		  : 0;
    1.11  		given ($dist) {
    1.12  
    1.13  			when (/Scalar-List-Util/msx) {
    1.14 @@ -674,15 +678,23 @@
    1.15  				$force ||= ( $self->image_dir() =~ /\AD:/ms ) ? 1 : 0;
    1.16  
    1.17  			}
    1.18 +			when (/CPAN-Meta-\d/msx) {
    1.19 +
    1.20 +				# Must be in core to overwrite EU::MM's version.
    1.21 +				$core = 1;
    1.22 +
    1.23 +			}
    1.24 +			when (/JSON-PP-/msx) {
    1.25 +
    1.26 +				# Must be in core to overwrite EU::MM's version.
    1.27 +				$core = 1;
    1.28 +
    1.29 +			}
    1.30  		} ## end given
    1.31  
    1.32  		# Actually DO the installation, now
    1.33  		# that we've got the information we need.
    1.34  		$module_id = $self->_module_fix( $self->_name_to_module($dist) );
    1.35 -		$core =
    1.36 -		  exists $Module::CoreList::version{$perl_version}{$module_id}
    1.37 -		  ? 1
    1.38 -		  : 0;
    1.39  #<<<
    1.40  		$self->install_distribution(
    1.41  			name              => $dist,