use autodie;
use strict;
use warnings;
-no warnings 'experimental::autoderef';
use File::Find;
use ExtUtils::MM_Unix;
use version;
/(\.pm|_pm\.PL)$/ or return;
/PPPort\.pm$/ and return;
my $module = $File::Find::name;
- $module =~ /\b(demo|t|private)\b/ and return; # demo or test modules
+ $module =~ /\b(demo|t|private|corpus)\b/ and return; # demo or test modules
my $version = MM->parse_version($_);
defined $version or $version = 'undef';
$version =~ /\d/ and $version = "'$version'";
my $versions_in_release = " " . $perl_vnum . " => {\n";
$versions_in_release .= " delta_from => $delta_data->{delta_from},\n";
$versions_in_release .= " changed => {\n";
-foreach my $key (sort keys $delta_data->{changed}) {
+foreach my $key (sort keys $delta_data->{changed}->%*) {
$versions_in_release .= sprintf " %-24s=> %s,\n", "'$key'",
defined $delta_data->{changed}{$key} ? "'"
. $delta_data->{changed}{$key} . "'" : "undef";
}
$versions_in_release .= " },\n";
$versions_in_release .= " removed => {\n";
-for my $key (sort keys($delta_data->{removed} || {})) {
+for my $key (sort keys %{ $delta_data->{removed} || {} }) {
$versions_in_release .= sprintf " %-24s=> %s,\n", "'$key'", 1;
}
$versions_in_release .= " }\n";
my $deprecated_stanza = " " . $perl_vnum . " => {\n";
$deprecated_stanza .= " delta_from => $delta_data->{delta_from},\n";
$deprecated_stanza .= " changed => {\n";
- foreach my $key (sort keys $delta_data->{changed}) {
+ foreach my $key (sort keys $delta_data->{changed}->%*) {
$deprecated_stanza .= sprintf " %-24s=> %s,\n", "'$key'",
defined $delta_data->{changed}{$key} ? "'"
. $delta_data->{changed}{$key} . "'" : "undef";
}
$deprecated_stanza .= " },\n";
$deprecated_stanza .= " removed => {\n";
- for my $key (sort keys($delta_data->{removed} || {})) {
+ for my $key (sort keys %{ $delta_data->{removed} || {} }) {
$deprecated_stanza .= sprintf " %-24s=> %s,\n", "'$key'", 1;
}
$deprecated_stanza .= " }\n";
my $utilities_in_release = " " . $perl_vnum . " => {\n";
$utilities_in_release .= " delta_from => $delta_utils->{delta_from},\n";
$utilities_in_release .= " changed => {\n";
-foreach my $key (sort keys $delta_utils->{changed}) {
+foreach my $key (sort keys $delta_utils->{changed}->%*) {
$utilities_in_release .= sprintf " %-24s=> %s,\n", "'$key'",
defined $delta_utils->{changed}{$key} ? "'"
. $delta_utils->{changed}{$key} . "'" : "undef";
}
$utilities_in_release .= " },\n";
$utilities_in_release .= " removed => {\n";
-for my $key (sort keys($delta_utils->{removed} || {})) {
+for my $key (sort keys %{ $delta_utils->{removed} || {} }) {
$utilities_in_release .= sprintf " %-24s=> %s,\n", "'$key'", 1;
}
$utilities_in_release .= " }\n";
}
my $smallest = (sort {
- ((keys($deltas{$a}->{changed}) + keys($deltas{$a}->{removed})) <=>
- (keys($deltas{$b}->{changed}) + keys($deltas{$b}->{removed}))) ||
+ ((keys($deltas{$a}->{changed}->%*) + keys($deltas{$a}->{removed}->%*)) <=>
+ (keys($deltas{$b}->{changed}->%*) + keys($deltas{$b}->{removed}->%*))) ||
$b <=> $a
} keys %deltas)[0];
}
my $smallest = (sort {
- ((keys($deltas{$a}->{changed}) + keys($deltas{$a}->{removed})) <=>
- (keys($deltas{$b}->{changed}) + keys($deltas{$b}->{removed}))) ||
+ ((keys($deltas{$a}->{changed}->%*) + keys($deltas{$a}->{removed}->%*)) <=>
+ (keys($deltas{$b}->{changed}->%*) + keys($deltas{$b}->{removed}->%*))) ||
$b <=> $a
} keys %deltas)[0];
my($from, $to) = @_;
my(%changed, %removed);
- for my $package(keys $from) {
+ for my $package(keys %$from) {
if(not exists $to->{$package}) {
$removed{$package} = 1;
}
}
- for my $package(keys $to) {
+ for my $package(keys %$to) {
if(!exists $from->{$package}
|| (defined $from->{$package} && !defined $to->{$package})
|| (!defined $from->{$package} && defined $to->{$package})