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
This commit is contained in:
parent
714efb2bcf
commit
882df3156c
|
@ -31,9 +31,8 @@ my @Groups = (
|
||||||
">breaking", ">breaking-java", ">deprecation", ">feature",
|
">breaking", ">breaking-java", ">deprecation", ">feature",
|
||||||
">enhancement", ">bug", ">regression", ">upgrade"
|
">enhancement", ">bug", ">regression", ">upgrade"
|
||||||
);
|
);
|
||||||
my %Ignore = map { $_ => 1 } (
|
my %Ignore = map { $_ => 1 }
|
||||||
">non-issue", ">refactoring", ">docs", ">test", ":Core/Build"
|
( ">non-issue", ">refactoring", ">docs", ">test", ":Core/Build" );
|
||||||
);
|
|
||||||
|
|
||||||
my %Group_Labels = (
|
my %Group_Labels = (
|
||||||
'>breaking' => 'Breaking changes',
|
'>breaking' => 'Breaking changes',
|
||||||
|
@ -70,6 +69,9 @@ sub dump_issues {
|
||||||
my $issues = shift;
|
my $issues = shift;
|
||||||
|
|
||||||
$version =~ s/v//;
|
$version =~ s/v//;
|
||||||
|
my $branch = $version;
|
||||||
|
$branch =~ s/\.\d+$//;
|
||||||
|
|
||||||
my ( $day, $month, $year ) = (gmtime)[ 3 .. 5 ];
|
my ( $day, $month, $year ) = (gmtime)[ 3 .. 5 ];
|
||||||
$month++;
|
$month++;
|
||||||
$year += 1900;
|
$year += 1900;
|
||||||
|
@ -81,12 +83,16 @@ sub dump_issues {
|
||||||
[[release-notes-$version]]
|
[[release-notes-$version]]
|
||||||
== $version Release Notes
|
== $version Release Notes
|
||||||
|
|
||||||
|
coming[$version]
|
||||||
|
|
||||||
|
Also see <<breaking-changes-$branch>>.
|
||||||
|
|
||||||
ASCIIDOC
|
ASCIIDOC
|
||||||
|
|
||||||
for my $group ( @Groups, 'other' ) {
|
for my $group ( @Groups, 'other' ) {
|
||||||
my $group_issues = $issues->{$group} or next;
|
my $group_issues = $issues->{$group} or next;
|
||||||
my $group_id = $group;
|
my $group_id = $group;
|
||||||
$group_id=~s/^>//;
|
$group_id =~ s/^>//;
|
||||||
print "[[$group_id-$version]]\n"
|
print "[[$group_id-$version]]\n"
|
||||||
. "[float]\n"
|
. "[float]\n"
|
||||||
. "=== $Group_Labels{$group}\n\n";
|
. "=== $Group_Labels{$group}\n\n";
|
||||||
|
@ -162,14 +168,15 @@ ISSUE:
|
||||||
for my $issue (@issues) {
|
for my $issue (@issues) {
|
||||||
next if $seen{ $issue->{number} } && !$issue->{pull_request};
|
next if $seen{ $issue->{number} } && !$issue->{pull_request};
|
||||||
|
|
||||||
for (@{ $issue->{labels} }) {
|
for ( @{ $issue->{labels} } ) {
|
||||||
next ISSUE if $Ignore{$_->{name}};
|
next ISSUE if $Ignore{ $_->{name} };
|
||||||
}
|
}
|
||||||
|
|
||||||
# uncomment for including/excluding PRs already issued in other versions
|
# uncomment for including/excluding PRs already issued in other versions
|
||||||
# next if grep {$_->{name}=~/^v2/} @{$issue->{labels}};
|
# next if grep {$_->{name}=~/^v2/} @{$issue->{labels}};
|
||||||
my %labels = map { $_->{name} => 1 } @{ $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';
|
$header ||= 'NOT CLASSIFIED';
|
||||||
for (@Groups) {
|
for (@Groups) {
|
||||||
if ( $labels{$_} ) {
|
if ( $labels{$_} ) {
|
||||||
|
|
Loading…
Reference in New Issue