Comment 4 for bug 1949243

Oh, I just noticed something:

+ for (my $i = 1; $i <= $li_count; $i++) {
+ $lis[$i]->{seq_id} = $i;

This looks like it would drop the first line item, as arrays in Perl are zero-indexed. Something like this might be better:

for (my $i = 0; $i <= $#lis; $i++) {
    $lis[$i]->{$seq_id} = $i + 1;
}