Porting/corelist-perldelta.pl

   1 #!perl
   2 use 5.010;
   3 use strict;
   4 use warnings;
   5 use lib 'Porting';
   6 use Maintainers qw/%Modules/;
   7 use Module::CoreList;
   8
   9 my $corelist = \%Module::CoreList::version;
  10 my @versions = sort keys %$corelist;
  11
  12 # by default, compare latest two version in CoreList;
  13 my ($old, $new) = @ARGV;
  14 $old ||= $versions[-2];
  15 $new ||= $versions[-1];
  16
  17 say "=head2 Updated Modules\n";
  18 say "=over 4\n";
  19
  20 for my $mod ( sort { lc $a cmp lc $b } keys %Modules ) {
  21   my $old_ver = $corelist->{$old}{$mod};
  22   my $new_ver = $corelist->{$new}{$mod};
  23   next unless defined $old_ver && defined $new_ver && $old_ver ne $new_ver;
  24   say "=item C<$mod>\n";
  25   say "Upgraded from version $old_ver to $new_ver.\n";
  26 }
  27
  28 say "=back\n";