diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
commit | b56b320b5e2515160073fa1b469514002688fe11 (patch) | |
tree | 965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Module/CoreList | |
parent | d26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff) |
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/CoreList')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm | 2 | ||||
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm | 101 |
2 files changed, 99 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm b/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm index eb769f3070a..bbe1066ca5f 100644 --- a/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm +++ b/Master/tlpkg/tlperl/lib/Module/CoreList/TieHashDelta.pm @@ -3,7 +3,7 @@ package Module::CoreList::TieHashDelta; use strict; use vars qw($VERSION); -$VERSION = '5.20150214'; +$VERSION = '5.20151213'; sub TIEHASH { my ($class, $changed, $removed, $parent) = @_; diff --git a/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm b/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm index b9fde3e27a2..ef82479ca6e 100755 --- a/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm +++ b/Master/tlpkg/tlperl/lib/Module/CoreList/Utils.pm @@ -6,7 +6,7 @@ use vars qw[$VERSION %utilities]; use Module::CoreList; use Module::CoreList::TieHashDelta; -$VERSION = '5.20150214'; +$VERSION = '5.20151213'; sub utilities { my $perl = shift; @@ -15,6 +15,16 @@ sub utilities { return sort keys %{ $utilities{$perl} }; } +sub _released_order { # Sort helper, to make '?' sort after everything else + (substr($Module::CoreList::released{$a}, 0, 1) eq "?") + ? ((substr($Module::CoreList::released{$b}, 0, 1) eq "?") + ? 0 + : 1) + : ((substr($Module::CoreList::released{$b}, 0, 1) eq "?") + ? -1 + : $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} ) +} + sub first_release_raw { my $util = shift; $util = shift if eval { $util->isa(__PACKAGE__) }; @@ -32,7 +42,7 @@ sub first_release_raw { sub first_release_by_date { my @perls = &first_release_raw; return unless @perls; - return (sort { $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} } @perls)[0]; + return (sort _released_order @perls)[0]; } sub first_release { @@ -47,7 +57,7 @@ sub removed_from { } sub removed_from_by_date { - my @perls = sort { $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} } &removed_raw; + my @perls = sort _released_order &removed_raw; return shift @perls; } @@ -1013,6 +1023,91 @@ my %delta = ( removed => { } }, + 5.021009 => { + delta_from => 5.021008, + changed => { + 'encguess' => '1', + }, + removed => { + } + }, + 5.021010 => { + delta_from => 5.021009, + changed => { + }, + removed => { + } + }, + 5.021011 => { + delta_from => 5.02101, + changed => { + }, + removed => { + } + }, + 5.022000 => { + delta_from => 5.021011, + changed => { + }, + removed => { + } + }, + 5.023000 => { + delta_from => 5.022000, + changed => { + }, + removed => { + } + }, + 5.023001 => { + delta_from => 5.023, + changed => { + }, + removed => { + } + }, + 5.023002 => { + delta_from => 5.023001, + changed => { + }, + removed => { + } + }, + 5.020003 => { + delta_from => 5.020002, + changed => { + }, + removed => { + } + }, + 5.023003 => { + delta_from => 5.023002, + changed => { + }, + removed => { + } + }, + 5.023004 => { + delta_from => 5.023003, + changed => { + }, + removed => { + } + }, + 5.023005 => { + delta_from => 5.023004, + changed => { + }, + removed => { + } + }, + 5.022001 => { + delta_from => 5.022, + changed => { + }, + removed => { + } + }, ); for my $version (sort { $a <=> $b } keys %delta) { |