util/mkdef.pl: use better array in search of 'DEPRECATEDIN_'
[openssl.git] / util / mkdef.pl
index 72d1c8f4677ddd68189a7952c3cd624879f6ed2f..fac911a471ee2770137ff93f717ca575a0b7f1cb 100755 (executable)
@@ -152,7 +152,7 @@ my %disabled_algorithms =
     map { (my $x = uc $_) =~ s|-|_|g; $x => 1; } keys %disabled;
 
 my $apiv = sprintf "%x%02x%02x", split(/\./, $config{api});
-foreach (keys %disabled_algorithms) {
+foreach (@known_algorithms) {
        if (/^DEPRECATEDIN_(\d+)_(\d+)_(\d+)$/) {
                my $depv = sprintf "%x%02x%02x", $1, $2, $3;
                $disabled_algorithms{$_} = 1 if $apiv ge $depv;