objxref.pl: improve portability.

This commit is contained in:
Andy Polyakov 2012-04-22 21:18:30 +00:00
parent e2f53b675a
commit 71fa3bc5ec

View file

@ -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;
}