diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-11-19 13:29:25 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-11-19 13:29:25 +0000 |
commit | 6d53d1efddf3b846358e60b4ba7fe871617a2e68 (patch) | |
tree | dec2fd3ff97f69be3c5c50c51d5446d055d2899a /cpan/Module-Build/lib/Module/Build/Base.pm | |
parent | 34e8ce870edf86c0bd4707c01205875db19be411 (diff) | |
download | perl-6d53d1efddf3b846358e60b4ba7fe871617a2e68.tar.gz |
Update Module-Build to CPAN version 0.4202
[DELTA]
0.4202 - Tue Nov 19 12:48:19 CET 2013
[BUG FIXES]
- Don't merge prereqs from meta to mymeta [Leon Timmermans]
Diffstat (limited to 'cpan/Module-Build/lib/Module/Build/Base.pm')
-rw-r--r-- | cpan/Module-Build/lib/Module/Build/Base.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/cpan/Module-Build/lib/Module/Build/Base.pm b/cpan/Module-Build/lib/Module/Build/Base.pm index 58d3add12a..72bcbae20c 100644 --- a/cpan/Module-Build/lib/Module/Build/Base.pm +++ b/cpan/Module-Build/lib/Module/Build/Base.pm @@ -6,7 +6,7 @@ use strict; use vars qw($VERSION); use warnings; -$VERSION = '0.4201'; +$VERSION = '0.4202'; $VERSION = eval $VERSION; BEGIN { require 5.006001 } @@ -1911,18 +1911,20 @@ sub create_mymeta { # maybe get a copy in spec v2 format (regardless of original source) - my $mymeta_obj = $self->_get_meta_object(quiet => 0, dynamic => 0, fatal => 1, auto => 0); - # if we have metadata, just update it - if ($meta_obj && $mymeta_obj) { - my $prereqs = $mymeta_obj->effective_prereqs->with_merged_prereqs($meta_obj->effective_prereqs); + my $mymeta_obj; + if ($meta_obj) { + # if we have metadata, just update it my %updated = ( %{ $meta_obj->as_struct({ version => 2.0 }) }, - prereqs => $prereqs->as_string_hash, + prereqs => $self->_normalize_prereqs, dynamic_config => 0, generated_by => "Module::Build version $Module::Build::VERSION", ); $mymeta_obj = CPAN::Meta->new( \%updated, { lazy_validation => 0 } ); } + else { + $mymeta_obj = $self->_get_meta_object(quiet => 0, dynamic => 0, fatal => 1, auto => 0); + } my @created = $self->_write_meta_files( $mymeta_obj, 'MYMETA' ); |