| #! /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]$'"; | |
| } |