projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Future-proof deprecated declartion parsing
[openssl.git]
/
util
/
mkdef.pl
diff --git
a/util/mkdef.pl
b/util/mkdef.pl
index 0c38934ba4c5dd0f8666ec547cd928303d58b8ed..31822e167d69cac452cedf8df81c1fa16c0f5bf7 100755
(executable)
--- a/
util/mkdef.pl
+++ b/
util/mkdef.pl
@@
-1681,7
+1681,8
@@
sub check_version_lte()
sub do_deprecated()
{
my ($decl, $plats, $algs) = @_;
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;
my $info1 .= "#INFO:";
$info1 .= join(',', @{$plats}) . ":";
my $info2 = $info1;