objxref.pl: improve portability.
This commit is contained in:
parent
e2f53b675a
commit
71fa3bc5ec
1 changed files with 2 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue