2
0

fixup-CHANGES.md-release.pl 367 B

12345678910111213
  1. #! /usr/bin/env perl -p
  2. BEGIN {
  3. our $count = 1; # Only the first one
  4. our $RELEASE = $ENV{RELEASE};
  5. our $RELEASE_TEXT = $ENV{RELEASE_TEXT};
  6. our $RELEASE_DATE = $ENV{RELEASE_DATE};
  7. }
  8. if (/^### Changes between (\S+) and (\S+) \[xx XXX xxxx\]/
  9. && $count-- > 0) {
  10. $_ = "### Changes between $1 and $RELEASE_TEXT [$RELEASE_DATE]$'";
  11. }