[perl5.git] / Porting / corelist-perldelta.pl

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