Future-proof deprecated declartion parsing
[openssl.git] / util / mkdef.pl
index 0c38934..31822e1 100755 (executable)
@@ -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;