do not filter out matches to primary_id from list of feature names

bioperl · Aug 30, 2012 · 9d4f62a · 9d4f62a
1 parent f558449
commit 9d4f62a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Bio/DB/SeqFeature/Store.pm b/Bio/DB/SeqFeature/Store.pm
@@ -2594,7 +2594,9 @@ sub feature_names {
   my @names = $obj->display_name;
   push @names,$obj->get_tag_values('Name') if $obj->has_tag('Name');
   push @names,$obj->get_tag_values('ID')   if $obj->has_tag('ID');
-  @names = grep {defined $_ && $_ ne $primary_id} @names;
+
+  # don't think this is desired behavior
+  # @names = grep {defined $_ && $_ ne $primary_id} @names;
 
   my @aliases = grep {defined} $obj->get_tag_values('Alias') if $obj->has_tag('Alias');