File: mashup.pl

package info (click to toggle)
libcpan-perl-releases-perl 5.20250803-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 248 kB
  • sloc: perl: 493; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (8) 
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";
  }
}