Skip to content

Commit 2cb4c58

Browse files
shogo82148-slim[bot]shogo82148
authored andcommitted
update cpanm
1 parent 012971b commit 2cb4c58

File tree

2 files changed

+6
-6
lines changed

2 files changed

+6
-6
lines changed

author/cpanm/cpanfile.snapshot

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -268,11 +268,11 @@ DISTRIBUTIONS
268268
IPC::Cmd 0
269269
Perl::OSType 1
270270
Text::ParseWords 0
271-
ExtUtils-Config-0.009
272-
pathname: L/LE/LEONT/ExtUtils-Config-0.009.tar.gz
271+
ExtUtils-Config-0.010
272+
pathname: L/LE/LEONT/ExtUtils-Config-0.010.tar.gz
273273
provides:
274-
ExtUtils::Config 0.009
275-
ExtUtils::Config::MakeMaker 0.009
274+
ExtUtils::Config 0.010
275+
ExtUtils::Config::MakeMaker 0.010
276276
requirements:
277277
Data::Dumper 0
278278
ExtUtils::MakeMaker 0

bin/cpanm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -221,11 +221,11 @@ $fatpacked{"ExtUtils/Command/MM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n
221221
EXTUTILS_COMMAND_MM
222222

223223
$fatpacked{"ExtUtils/Config.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG';
224-
package ExtUtils::Config;$ExtUtils::Config::VERSION='0.009';use strict;use warnings;use Config;sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{values}{$key}? $self->{values}{$key}: $Config{$key}}sub exists {my ($self,$key)=@_;return exists$self->{values}{$key}|| exists$Config{$key}}sub values_set {my$self=shift;return {%{$self->{values}}}}sub all_config {my$self=shift;return {%Config,%{$self->{values}}}}sub serialize {my$self=shift;require Data::Dumper;return$self->{serialized}||= Data::Dumper->new($self->{values})->Terse(1)->Sortkeys(1)->Dump}sub but {my ($self,$args)=@_;my%new=%{$self->{values}};for my$key (keys %$args){if (defined$args->{$key}){$new{$key}=$args->{$key}}else {delete$new{$key}}}return bless {values=>\%new },ref$self}1;
224+
package ExtUtils::Config;$ExtUtils::Config::VERSION='0.010';use strict;use warnings;use Config;sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{values}{$key}? $self->{values}{$key}: $Config{$key}}sub exists {my ($self,$key)=@_;return exists$self->{values}{$key}|| exists$Config{$key}}sub values_set {my$self=shift;return {%{$self->{values}}}}sub all_config {my$self=shift;return {%Config,%{$self->{values}}}}sub serialize {my$self=shift;require Data::Dumper;return$self->{serialized}||= Data::Dumper->new([$self->{values}])->Terse(1)->Sortkeys(1)->Dump}sub but {my ($self,$args)=@_;my%new=%{$self->{values}};for my$key (keys %$args){if (defined$args->{$key}){$new{$key}=$args->{$key}}else {delete$new{$key}}}return bless {values=>\%new },ref$self}1;
225225
EXTUTILS_CONFIG
226226

227227
$fatpacked{"ExtUtils/Config/MakeMaker.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG_MAKEMAKER';
228-
package ExtUtils::Config::MakeMaker;$ExtUtils::Config::MakeMaker::VERSION='0.009';use strict;use warnings;use ExtUtils::MakeMaker::Config;sub new {my ($class,$maker)=@_;return bless {maker=>$maker },$class}sub get {my ($self,$key)=@_;return exists$self->{maker}{uc$key}? $self->{maker}{uc$key}: $Config{$key}}sub exists {my ($self,$key)=@_;return exists$Config{$key}}sub all_config {my$self=shift;my%result;for my$key (keys%Config){$result{$key}=$self->get($key)}return \%result}sub values_set {my$self=shift;my%result;for my$key (keys%Config){next if not exists$self->{maker}{uc$key};next if$self->{maker}{uc$key}eq $Config{$key};$result{$key}=$self->{maker}{uc$key}}return \%result}sub serialize {my$self=shift;require Data::Dumper;return$self->{serialized}||= Data::Dumper->new($self->values_set)->Terse(1)->Sortkeys(1)->Dump}sub materialize {my$self=shift;require ExtUtils::Config;return ExtUtils::Config->new($self->values_set)}sub but {my ($self,%args)=@_;return$self->materialize->but(%args)}1;
228+
package ExtUtils::Config::MakeMaker;$ExtUtils::Config::MakeMaker::VERSION='0.010';use strict;use warnings;use ExtUtils::MakeMaker::Config;sub new {my ($class,$maker)=@_;return bless {maker=>$maker },$class}sub get {my ($self,$key)=@_;return exists$self->{maker}{uc$key}? $self->{maker}{uc$key}: $Config{$key}}sub exists {my ($self,$key)=@_;return exists$Config{$key}}sub all_config {my$self=shift;my%result;for my$key (keys%Config){$result{$key}=$self->get($key)}return \%result}sub values_set {my$self=shift;my%result;for my$key (keys%Config){next if not exists$self->{maker}{uc$key};next if$self->{maker}{uc$key}eq $Config{$key};$result{$key}=$self->{maker}{uc$key}}return \%result}sub serialize {my$self=shift;require Data::Dumper;return$self->{serialized}||= Data::Dumper->new($self->values_set)->Terse(1)->Sortkeys(1)->Dump}sub materialize {my$self=shift;require ExtUtils::Config;return ExtUtils::Config->new($self->values_set)}sub but {my ($self,%args)=@_;return$self->materialize->but(%args)}1;
229229
EXTUTILS_CONFIG_MAKEMAKER
230230

231231
$fatpacked{"ExtUtils/Helpers.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS';

0 commit comments

Comments
 (0)