summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d594199)
Support two-digest major/minor/micro numbers and die when the input
fails to parse
Reviewed-by: Dr. Stephen Henson <steve@openssl.org>
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;