objxref.pl: improve portability.

(cherry picked from commit 71fa3bc5ece9121d1aa9bb513b5641e9ea605e14)
This commit is contained in:
Andy Polyakov 2012-04-22 21:18:30 +00:00
parent 45d010255f
commit b6c2029931

View File

@ -39,7 +39,8 @@ my @xrkeys = keys %xref_tbl;
my @srt1 = sort { $oid_tbl{$a} <=> $oid_tbl{$b}} @xrkeys; 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; $xref_tbl{$srt1[$i]}[2] = $i;
} }