"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "dist/Module-CoreList/lib/Module/CoreList.pm" between
perl-5.30.2.tar.xz and perl-5.30.3.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Latest stable release.

CoreList.pm  (perl-5.30.2.tar.xz):CoreList.pm  (perl-5.30.3.tar.xz)
package Module::CoreList; package Module::CoreList;
use strict; use strict;
our ( %released, %version, %families, %upstream, %bug_tracker, %deprecated, %del ta ); our ( %released, %version, %families, %upstream, %bug_tracker, %deprecated, %del ta );
use version; use version;
our $VERSION = '5.20200314'; our $VERSION = '5.20200601_30';
sub PKG_PATTERN () { q#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z# } sub PKG_PATTERN () { q#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z# }
sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } } sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } }
sub _undelta { sub _undelta {
my ($delta) = @_; my ($delta) = @_;
my (%expanded, $delta_from, $base, $changed, $removed); my (%expanded, $delta_from, $base, $changed, $removed);
for my $v (sort keys %$delta) { for my $v (sort keys %$delta) {
($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from chang ed removed )}; ($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from chang ed removed )};
$base = $delta_from ? $expanded{$delta_from} : {}; $base = $delta_from ? $expanded{$delta_from} : {};
skipping to change at line 362 skipping to change at line 362
5.031001 => '2019-06-20', 5.031001 => '2019-06-20',
5.031002 => '2019-07-20', 5.031002 => '2019-07-20',
5.031003 => '2019-08-20', 5.031003 => '2019-08-20',
5.031004 => '2019-09-20', 5.031004 => '2019-09-20',
5.031005 => '2019-10-20', 5.031005 => '2019-10-20',
5.030001 => '2019-11-10', 5.030001 => '2019-11-10',
5.031006 => '2019-11-20', 5.031006 => '2019-11-20',
5.031007 => '2019-12-20', 5.031007 => '2019-12-20',
5.031008 => '2020-01-20', 5.031008 => '2020-01-20',
5.031009 => '2020-02-20', 5.031009 => '2020-02-20',
5.030002 => '2020-03-07', 5.030002 => '2020-03-14',
5.031010 => '2020-03-20',
5.031011 => '2020-04-28',
5.030003 => '2020-06-01',
); );
for my $version ( sort { $a <=> $b } keys %released ) { for my $version ( sort { $a <=> $b } keys %released ) {
my $family = int ($version * 1000) / 1000; my $family = int ($version * 1000) / 1000;
push @{ $families{ $family }} , $version; push @{ $families{ $family }} , $version;
} }
%delta = ( %delta = (
5 => { 5 => {
changed => { changed => {
skipping to change at line 17357 skipping to change at line 17360
changed => { changed => {
'B::Op_private' => '5.030002', 'B::Op_private' => '5.030002',
'Compress::Raw::Bzip2' => '2.089', 'Compress::Raw::Bzip2' => '2.089',
'Config' => '5.030002', 'Config' => '5.030002',
'Module::CoreList' => '5.20200314', 'Module::CoreList' => '5.20200314',
'Module::CoreList::Utils'=> '5.20200314', 'Module::CoreList::Utils'=> '5.20200314',
}, },
removed => { removed => {
} }
}, },
5.031010 => {
delta_from => 5.031009,
changed => {
'B::Op_private' => '5.031010',
'Config' => '5.03101',
},
removed => {
}
},
5.031011 => {
delta_from => 5.031010,
changed => {
'B::Deparse' => '1.53',
'B::Op_private' => '5.031011',
'Config' => '5.031011',
'DynaLoader' => '1.47',
'Encode' => '3.04',
'IPC::Open2' => '1.05',
'IPC::Open3' => '1.21',
'Module::CoreList' => '5.20200428',
'Module::CoreList::Utils'=> '5.20200428',
'Opcode' => '1.47',
'POSIX' => '1.93',
'PerlIO' => '1.11',
'Storable' => '3.20',
'Test2' => '1.302175',
'Test2::API' => '1.302175',
'Test2::API::Breakage' => '1.302175',
'Test2::API::Context' => '1.302175',
'Test2::API::Instance' => '1.302175',
'Test2::API::Stack' => '1.302175',
'Test2::Event' => '1.302175',
'Test2::Event::Bail' => '1.302175',
'Test2::Event::Diag' => '1.302175',
'Test2::Event::Encoding'=> '1.302175',
'Test2::Event::Exception'=> '1.302175',
'Test2::Event::Fail' => '1.302175',
'Test2::Event::Generic' => '1.302175',
'Test2::Event::Note' => '1.302175',
'Test2::Event::Ok' => '1.302175',
'Test2::Event::Pass' => '1.302175',
'Test2::Event::Plan' => '1.302175',
'Test2::Event::Skip' => '1.302175',
'Test2::Event::Subtest' => '1.302175',
'Test2::Event::TAP::Version'=> '1.302175',
'Test2::Event::V2' => '1.302175',
'Test2::Event::Waiting' => '1.302175',
'Test2::EventFacet' => '1.302175',
'Test2::EventFacet::About'=> '1.302175',
'Test2::EventFacet::Amnesty'=> '1.302175',
'Test2::EventFacet::Assert'=> '1.302175',
'Test2::EventFacet::Control'=> '1.302175',
'Test2::EventFacet::Error'=> '1.302175',
'Test2::EventFacet::Hub'=> '1.302175',
'Test2::EventFacet::Info'=> '1.302175',
'Test2::EventFacet::Info::Table'=> '1.302175',
'Test2::EventFacet::Meta'=> '1.302175',
'Test2::EventFacet::Parent'=> '1.302175',
'Test2::EventFacet::Plan'=> '1.302175',
'Test2::EventFacet::Render'=> '1.302175',
'Test2::EventFacet::Trace'=> '1.302175',
'Test2::Formatter' => '1.302175',
'Test2::Formatter::TAP' => '1.302175',
'Test2::Hub' => '1.302175',
'Test2::Hub::Interceptor'=> '1.302175',
'Test2::Hub::Interceptor::Terminator'=> '1.302175',
'Test2::Hub::Subtest' => '1.302175',
'Test2::IPC' => '1.302175',
'Test2::IPC::Driver' => '1.302175',
'Test2::IPC::Driver::Files'=> '1.302175',
'Test2::Tools::Tiny' => '1.302175',
'Test2::Util' => '1.302175',
'Test2::Util::ExternalMeta'=> '1.302175',
'Test2::Util::Facets2Legacy'=> '1.302175',
'Test2::Util::HashBase' => '1.302175',
'Test2::Util::Trace' => '1.302175',
'Test::Builder' => '1.302175',
'Test::Builder::Formatter'=> '1.302175',
'Test::Builder::Module' => '1.302175',
'Test::Builder::Tester' => '1.302175',
'Test::Builder::Tester::Color'=> '1.302175',
'Test::Builder::TodoDiag'=> '1.302175',
'Test::More' => '1.302175',
'Test::Simple' => '1.302175',
'Test::Tester' => '1.302175',
'Test::Tester::Capture' => '1.302175',
'Test::Tester::CaptureRunner'=> '1.302175',
'Test::Tester::Delegate'=> '1.302175',
'Test::use::ok' => '1.302175',
'Time::Piece' => '1.3401',
'Time::Seconds' => '1.3401',
'Unicode::UCD' => '0.75',
'XS::APItest' => '1.09',
'_charnames' => '1.47',
'charnames' => '1.47',
'ok' => '1.302175',
'open' => '1.12',
're' => '0.39',
'warnings' => '1.47',
},
removed => {
}
},
5.030003 => {
delta_from => 5.030002,
changed => {
'B::Op_private' => '5.030003',
'Config' => '5.030003',
'Module::CoreList' => '5.20200601_30',
'Module::CoreList::Utils'=> '5.20200601_30',
},
removed => {
}
},
); );
sub is_core sub is_core
{ {
shift if defined $_[1] and $_[1] =~ /^\w/ and _looks_like_invocant $_[0]; shift if defined $_[1] and $_[1] =~ /^\w/ and _looks_like_invocant $_[0];
my $module = shift; my $module = shift;
my $module_version = @_ > 0 ? shift : undef; my $module_version = @_ > 0 ? shift : undef;
my $perl_version = @_ > 0 ? shift : $]; my $perl_version = @_ > 0 ? shift : $];
my $first_release = first_release($module); my $first_release = first_release($module);
skipping to change at line 18443 skipping to change at line 18560
removed => { removed => {
} }
}, },
5.030002 => { 5.030002 => {
delta_from => 5.030001, delta_from => 5.030001,
changed => { changed => {
}, },
removed => { removed => {
} }
}, },
5.031010 => {
delta_from => 5.031009,
changed => {
},
removed => {
}
},
5.031011 => {
delta_from => 5.03101,
changed => {
},
removed => {
}
},
5.030003 => {
delta_from => 5.030002,
changed => {
},
removed => {
}
},
); );
%deprecated = _undelta(\%deprecated); %deprecated = _undelta(\%deprecated);
%upstream = ( %upstream = (
'App::Cpan' => 'cpan', 'App::Cpan' => 'cpan',
'App::Prove' => 'cpan', 'App::Prove' => 'cpan',
'App::Prove::State' => 'cpan', 'App::Prove::State' => 'cpan',
'App::Prove::State::Result'=> 'cpan', 'App::Prove::State::Result'=> 'cpan',
'App::Prove::State::Result::Test'=> 'cpan', 'App::Prove::State::Result::Test'=> 'cpan',
 End of changes. 4 change blocks. 
2 lines changed or deleted 140 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)