Utils.pm (perl-5.28.2.tar.xz) | : | Utils.pm (perl-5.28.3.tar.xz) | ||
---|---|---|---|---|
package Module::CoreList::Utils; | package Module::CoreList::Utils; | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
use Module::CoreList; | use Module::CoreList; | |||
our $VERSION = '5.20190419'; | our $VERSION = '5.20200601_28'; | |||
our %utilities; | our %utilities; | |||
sub utilities { | sub utilities { | |||
my $perl = shift; | my $perl = shift; | |||
$perl = shift if eval { $perl->isa(__PACKAGE__) }; | $perl = shift if eval { $perl->isa(__PACKAGE__) }; | |||
return unless $perl or exists $utilities{$perl}; | return unless $perl or exists $utilities{$perl}; | |||
return sort keys %{ $utilities{$perl} }; | return sort keys %{ $utilities{$perl} }; | |||
} | } | |||
sub _released_order { # Sort helper, to make '?' sort after everything else | sub _released_order { # Sort helper, to make '?' sort after everything else | |||
skipping to change at line 1490 | skipping to change at line 1490 | |||
removed => { | removed => { | |||
} | } | |||
}, | }, | |||
5.028002 => { | 5.028002 => { | |||
delta_from => 5.028001, | delta_from => 5.028001, | |||
changed => { | changed => { | |||
}, | }, | |||
removed => { | removed => { | |||
} | } | |||
}, | }, | |||
5.029010 => { | ||||
delta_from => 5.029009, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.030000 => { | ||||
delta_from => 5.029010, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031000 => { | ||||
delta_from => 5.03, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031001 => { | ||||
delta_from => 5.031, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
'podselect' => 1, | ||||
} | ||||
}, | ||||
5.031002 => { | ||||
delta_from => 5.031001, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031003 => { | ||||
delta_from => 5.031002, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031004 => { | ||||
delta_from => 5.031003, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031005 => { | ||||
delta_from => 5.031004, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.030001 => { | ||||
delta_from => 5.03, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031006 => { | ||||
delta_from => 5.031005, | ||||
changed => { | ||||
'streamzip' => '1', | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031007 => { | ||||
delta_from => 5.031006, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031008 => { | ||||
delta_from => 5.031007, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031009 => { | ||||
delta_from => 5.031008, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.030002 => { | ||||
delta_from => 5.030001, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031010 => { | ||||
delta_from => 5.031009, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.031011 => { | ||||
delta_from => 5.031010, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
5.028003 => { | ||||
delta_from => 5.028002, | ||||
changed => { | ||||
}, | ||||
removed => { | ||||
} | ||||
}, | ||||
); | ); | |||
%utilities = Module::CoreList::_undelta(\%delta); | %utilities = Module::CoreList::_undelta(\%delta); | |||
# Create aliases with trailing zeros for $] use | # Create aliases with trailing zeros for $] use | |||
$utilities{'5.000'} = $utilities{5}; | $utilities{'5.000'} = $utilities{5}; | |||
_create_aliases(\%utilities); | _create_aliases(\%utilities); | |||
End of changes. 2 change blocks. | ||||
1 lines changed or deleted | 122 lines changed or added |