diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
commit | 34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch) | |
tree | 099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm | |
parent | 2ca3610031316a7312d046d3ae4c783452831216 (diff) |
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
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 |