diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm | 111 |
1 files changed, 102 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm b/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm index 71edc4f4d07..abcb152c82d 100755 --- a/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm +++ b/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm @@ -4,9 +4,8 @@ use strict; use warnings; use vars qw[$VERSION %utilities]; use Module::CoreList; -use Module::CoreList::TieHashDelta; -$VERSION = '5.20170114_24'; +$VERSION = '5.20170922_26'; sub utilities { my $perl = shift; @@ -1213,6 +1212,13 @@ my %delta = ( removed => { } }, + 5.022003 => { + delta_from => 5.022002, + changed => { + }, + removed => { + } + }, 5.024001 => { delta_from => 5.024000, changed => { @@ -1220,15 +1226,102 @@ my %delta = ( removed => { } }, + 5.025009 => { + delta_from => 5.025008, + changed => { + }, + removed => { + 'c2ph' => 1, + 'pstruct' => 1, + } + }, + 5.025010 => { + delta_from => 5.025009, + changed => { + }, + removed => { + } + }, + 5.025011 => { + delta_from => 5.025010, + changed => { + }, + removed => { + } + }, + 5.025012 => { + delta_from => 5.025011, + changed => { + }, + removed => { + } + }, + 5.026000 => { + delta_from => 5.025012, + changed => { + }, + removed => { + } + }, + 5.027000 => { + delta_from => 5.026000, + changed => { + }, + removed => { + } + }, + 5.027001 => { + delta_from => 5.027000, + changed => { + }, + removed => { + } + }, + 5.022004 => { + delta_from => 5.022003, + changed => { + }, + removed => { + } + }, + 5.024002 => { + delta_from => 5.024001, + changed => { + }, + removed => { + } + }, + 5.027002 => { + delta_from => 5.027001, + changed => { + }, + removed => { + } + }, + 5.027003 => { + delta_from => 5.027002, + changed => { + }, + removed => { + } + }, + 5.027004 => { + delta_from => 5.027003, + changed => { + }, + removed => { + } + }, + 5.026001 => { + delta_from => 5.026000, + changed => { + }, + removed => { + } + }, ); -for my $version (sort { $a <=> $b } keys %delta) { - my $data = $delta{$version}; - - tie %{$utilities{$version}}, 'Module::CoreList::TieHashDelta', - $data->{changed}, $data->{removed}, - $data->{delta_from} ? $utilities{$data->{delta_from}} : undef; -} +%utilities = Module::CoreList::_undelta(\%delta); # Create aliases with trailing zeros for $] use |