Commit 71fa3bc5 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

objxref.pl: improve portability.

parent e2f53b67

crypto/objects/objxref.pl

+2 −1
Original line number Diff line number Diff line
@@ -39,7 +39,8 @@ my @xrkeys = keys %xref_tbl; 


my @srt1 = sort { $oid_tbl{$a} <=> $oid_tbl{$b}} @xrkeys;



for(my $i = 0; $i <= $#srt1; $i++)

my $i;

for($i = 0; $i <= $#srt1; $i++)

	{

	$xref_tbl{$srt1[$i]}[2] = $i;

	}