mirror of
https://github.com/openssl/openssl.git
synced 2025-01-12 13:36:28 +08:00
29 lines
803 B
Perl
29 lines
803 B
Perl
|
#! /usr/bin/env perl -pi
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
our $count = 1; # Only the first one
|
||
|
|
our $RELEASE = $ENV{RELEASE};
|
||
|
|
our $RELEASE_TEXT = $ENV{RELEASE_TEXT};
|
||
|
|
our $PREV_RELEASE_DATE = $ENV{PREV_RELEASE_DATE} || 'under development';
|
||
|
|
our $PREV_RELEASE_TEXT = $ENV{PREV_RELEASE_TEXT};
|
||
|
|
|
||
|
|
$RELEASE =~ s/-dev//;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (/^### Major changes between OpenSSL (\S+) and OpenSSL (\S+) \[under development\]/
|
||
|
|
&& $count-- > 0) {
|
||
|
|
my $v1 = $1;
|
||
|
|
my $v2 = $PREV_RELEASE_TEXT || $2;
|
||
|
|
|
||
|
|
# If this is a pre-release, we do nothing
|
||
|
|
if ($RELEASE !~ /^\d+\.\d+\.\d+-(?:alpha|beta)/) {
|
||
|
|
$_ = <<_____
|
||
|
|
### Major changes between OpenSSL $v2 and OpenSSL $RELEASE_TEXT [under development] ###
|
||
|
|
|
||
|
|
*
|
||
|
|
|
||
|
|
### Major changes between OpenSSL $v1 and OpenSSL $v2 [$PREV_RELEASE_DATE] ###
|
||
|
|
_____
|
||
|
|
}
|
||
|
|
}
|