diff options
author | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-01-09 17:11:18 -0500 |
---|---|---|
committer | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-01-09 22:30:59 -0500 |
commit | ca0004e5610df4333d06908c5c5788f93a971ffa (patch) | |
tree | b6be0b0ab848371b5dd169c439e10853684f208d /util | |
parent | d594199bb47362306060db0e185582ffcfd7b6a6 (diff) |
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>
Diffstat (limited to 'util')
-rwxr-xr-x | util/mkdef.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index 0c38934ba4..31822e167d 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -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; |