Make CBC decoding constant time.

[oweals/openssl.git] / crypto / objects / objxref.pl

diff --git a/crypto/objects/objxref.pl b/crypto/objects/objxref.pl
index 94b9bc133f684dd90b246c6cff12eea5bf6e3f15..731d3ae22c2745928648f0602ba2732c292a9b7e 100644 (file)
--- a/crypto/objects/objxref.pl
+++ b/crypto/objects/objxref.pl
@@ -39,8 +39,7 @@ my @xrkeys = keys %xref_tbl;
 
 my @srt1 = sort { $oid_tbl{$a} <=> $oid_tbl{$b}} @xrkeys;
 
-my $i;
-for($i = 0; $i <= $#srt1; $i++)
+for(my $i = 0; $i <= $#srt1; $i++)
        {
        $xref_tbl{$srt1[$i]}[2] = $i;
        }