1 #! /usr/bin/env perl -pi
4 our $count = 1; # Only the first one
5 our $RELEASE = $ENV{RELEASE};
6 our $RELEASE_TEXT = $ENV{RELEASE_TEXT};
7 our $PREV_RELEASE_DATE = $ENV{PREV_RELEASE_DATE} || 'xx XXX xxxx';
8 our $PREV_RELEASE_TEXT = $ENV{PREV_RELEASE_TEXT};
13 if (/^### Changes between (\S+) and (\S+) \[xx XXX xxxx\]/
16 my $v2 = $PREV_RELEASE_TEXT || $2;
18 # If this is a pre-release, we do nothing
19 if ($RELEASE !~ /^\d+\.\d+\.\d+-(?:alpha|beta)/) {
21 ### Changes between $v2 and $RELEASE_TEXT [xx XXX xxxx] ###
25 ### Changes between $v1 and $v2 [$PREV_RELEASE_DATE] ###