Commit ca0004e5 authored by Viktor Dukhovni's avatar Viktor Dukhovni
Browse files

Future-proof deprecated declartion parsing 



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

Reviewed-by: default avatarDr. Stephen Henson <steve@openssl.org>
parent d594199b

util/mkdef.pl

+2 −1
Original line number Diff line number Diff line
@@ -1681,7 +1681,8 @@ sub check_version_lte() 
sub do_deprecated()

{

	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:";

	$info1 .= join(',', @{$plats}) . ":";

	my $info2 = $info1;