#!perl
use 5.010;
use strict;
use warnings;
use lib 'Porting';
use Maintainers qw/%Modules/;
use Module::CoreList;
my $corelist = \%Module::CoreList::version;
my @versions = sort keys %$corelist;
# by default, compare latest two version in CoreList;
my ($old, $new) = @ARGV;
$old ||= $versions[-2];
$new ||= $versions[-1];
say "=head2 Updated Modules\n";
say "=over 4\n";
for my $mod ( sort { lc $a cmp lc $b } keys %Modules ) {
my $old_ver = $corelist->{$old}{$mod};
my $new_ver = $corelist->{$new}{$mod};
next unless defined $old_ver && defined $new_ver && $old_ver ne $new_ver;
say "=item C<$mod>\n";
say "Upgraded from version $old_ver to $new_ver.\n";
}
say "=back\n";