- next unless /^DEPRECATEDIN_(\d+)(?:_(\d+)_(\d+))?$/;
- my $symdep = sprintf "%x%02x%02x", $1, ($2 // 0), ($3 // 0);
- $verdict = 0 if $apiv ge $symdep;
+ next unless /^DEPRECATEDIN_(\d+)_(\d+)(?:_(\d+))?$/;
+ my $symdep = $1 * 10000 + $2 * 100 + ($3 // 0);
+ $verdict = 0 if $config{api} >= $symdep;
+ print STDERR "DEBUG: \$symdep = $symdep, \$verdict = $verdict\n"
+ if $debug && $1 == 0;