6 use Maintainers qw/%Modules/;
9 my $corelist = \%Module::CoreList::version;
10 my @versions = sort keys %$corelist;
12 # by default, compare latest two version in CoreList;
13 my ($old, $new) = @ARGV;
14 $old ||= $versions[-2];
15 $new ||= $versions[-1];
17 say "=head2 Updated Modules\n";
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";