Added coming annotation and breaking changes link to release notes script
Also fixed the "area" regex to only remove up to the first /
so that it doesn't remove too much in :Distributed/Snapshot/Restore
Finally, tidied
@@ -31,9 +31,8 @@ my @Groups = (
">breaking", ">breaking-java", ">deprecation", ">feature",
">enhancement", ">bug", ">regression", ">upgrade"
);
-my %Ignore = map { $_ => 1 } (
- ">non-issue", ">refactoring", ">docs", ">test", ":Core/Build"
-);
+my %Ignore = map { $_ => 1 }
+ ( ">non-issue", ">refactoring", ">docs", ">test", ":Core/Build" );
my %Group_Labels = (
'>breaking' => 'Breaking changes',
@@ -70,6 +69,9 @@ sub dump_issues {
my $issues = shift;
$version =~ s/v//;
+ my $branch = $version;
+ $branch =~ s/\.\d+$//;
+
my ( $day, $month, $year ) = (gmtime)[ 3 .. 5 ];
$month++;
$year += 1900;
@@ -81,6 +83,10 @@ sub dump_issues {
[[release-notes-$version]]
== $version Release Notes
+coming[$version]
+
+Also see <<breaking-changes-$branch>>.
+
ASCIIDOC
for my $group ( @Groups, 'other' ) {
@@ -169,7 +175,8 @@ ISSUE:
# uncomment for including/excluding PRs already issued in other versions
# next if grep {$_->{name}=~/^v2/} @{$issue->{labels}};
my %labels = map { $_->{name} => 1 } @{ $issue->{labels} };
- my ($header) = map { /:.+\/(.+)/ && $1 } grep {/^:/} sort keys %labels;
+ my ($header) = map { m{:[^/]+/(.+)} && $1 }
+ grep {/^:/} sort keys %labels;
$header ||= 'NOT CLASSIFIED';
for (@Groups) {
if ( $labels{$_} ) {
