diff --git a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm index 2b4f47afcc..f7d0c600ab 100644 --- a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm +++ b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm @@ -605,7 +605,7 @@ sub make_names_iterator { $feature = gff3_parse_feature($line); my $Name = $feature->{attributes}{Name} || []; my $ID = $feature->{attributes}{ID} || []; - @names = $Name->[0] ? @$Name : @$ID; + @names = $Name->[0] ? (@$Name, @$ID) : @$ID; last if scalar @names; } }