my @ignored_revisions = (
'0b4285abd12323920d92fee51e199edd7527dbec', # adding copyright headers
'46a39046196f55b52336e19662bb7bac85b731ac', # adding copyright headers
+ '4a6fedd9324d87349a806c9c1d0ae6e7d3c1fd38', # mass-updating descriptions
'56375392ba94f2552bbeeeab4fd39e1e50295525', # sadie's name change
'bab14f0dd2345c9d7dcbc47c918563709e1ac094', # peavey breaking line endings
'f2acdbc3820f0f4f5ef76a0a64e73d2a320df91f', # peavey fixing line endings
next unless scalar keys %author > 1;
my $display = sprintf "%s <%s>", $author{NAME}, $author{EMAIL};
$authors{$display} //= [];
- push $authors{$display}, $author{YEAR};
+ push @{$authors{$display}}, $author{YEAR};
for my $commit (uniq @{$author{COMMITS}}) {
my $details = `git rev-list --format=%B --max-count=1 $commit`;
while ($details =~ /co-authored-by: ([^<]+<[^>]+>)/gi) {
$authors{$1} //= [];
- push $authors{$1}, $author{YEAR};
+ push @{$authors{$1}}, $author{YEAR};
}
}
undef %author;
$last_year = $year;
} else {
if ($last_year == $start_year) {
- push @year_ranges, $last_year;
+ push @year_ranges, $last_year;
} else {
push @year_ranges, "$start_year-$last_year";
}
}
if (defined $last_year) {
if ($last_year == $start_year) {
- push @year_ranges, $last_year;
+ push @year_ranges, $last_year;
} else {
push @year_ranges, "$start_year-$last_year";
}