Commit | Line | Data |
603f4ea0 |
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"; |