X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=util%2Fmkdef.pl;h=31822e167d69cac452cedf8df81c1fa16c0f5bf7;hp=0c38934ba4c5dd0f8666ec547cd928303d58b8ed;hb=ca0004e5610df4333d06908c5c5788f93a971ffa;hpb=7a556fb6f863980f56deff268a46c75a6ccf74e4

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;