/usr/share/doc/libcpan-perl-releases-perl/examples/mashup.pl is in libcpan-perl-releases-perl 3.48-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | use strict;
use warnings;
use Perl::Version;
use Module::CoreList;
use CPAN::Perl::Releases;
foreach my $ver ( keys %{ $CPAN::Perl::Releases::data } ) {
next if $ver =~ /(RC|TRIAL)/;
my $pv = Perl::Version->new( $ver );
my $num = $pv->numify;
$num =~ s/_//g;
if ( exists $Module::CoreList::released{ 0+$num } ) {
print "$ver: ", $Module::CoreList::released{ 0+$num }, "\n";
}
else {
warn "SHIT NOTHING FOR '$ver', '$num'\n";
}
}
|