root
/
openssl
mirror of https://github.com/openssl/openssl.git
1
0
Fork 0
Code Issues Actions 7 Packages Projects Releases Wiki Activity

Future-proof deprecated declartion parsing 

Support two-digest major/minor/micro numbers and die when the input
fails to parse

Reviewed-by: Dr. Stephen Henson <steve@openssl.org>
This commit is contained in:
Viktor Dukhovni 2016-01-09 17:11:18 -05:00
parent d594199bb4
commit ca0004e561
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
util/mkdef.pl
View File

@ -1681,7 +1681,8 @@ sub check_version_lte()
sub do_deprecated() sub do_deprecated()
{ {
my ($decl, $plats, $algs) = @_; my ($decl, $plats, $algs) = @_;
$decl =~ /^\s*(DEPRECATEDIN_\d_\d_\d)\s*\((.*)\)\s*$/; $decl =~ /^\s*(DEPRECATEDIN_\d+_\d+_\d+)\s*\((.*)\)\s*$/
or die "Bad DEPRECTEDIN: $decl\n";
my $info1 .= "#INFO:"; my $info1 .= "#INFO:";
$info1 .= join(',', @{$plats}) . ":"; $info1 .= join(',', @{$plats}) . ":";
my $info2 = $info1; my $info2 = $info1;