dev/release-aux/fixup-CHANGES.md-release.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#! /usr/bin/env perl -p

BEGIN {
    our $count = 1;              # Only the first one
    our $RELEASE = $ENV{RELEASE};
    our $RELEASE_TEXT = $ENV{RELEASE_TEXT};
    our $RELEASE_DATE = $ENV{RELEASE_DATE};
}

if (/^### Changes between (\S+) and (\S+) \[xx XXX xxxx\]/
    && $count-- > 0) {
    $_ = "### Changes between $1 and $RELEASE_TEXT [$RELEASE_DATE]$'";
}