properly handle multiple contiguous ### markers in a gff3 file

bioperl · Dec 7, 2011 · 50a18ae · 50a18ae
1 parent b1a0558
commit 50a18ae
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/lib/Bio/FeatureIO/gff.pm b/lib/Bio/FeatureIO/gff.pm
@@ -162,8 +162,17 @@ sub next_feature_group {
             $self->seqio($object);
             last;
         }
-        last if $self->handler->resolve_references;
+
+        if( $self->handler->resolve_references ) {
+            if( @toplevel_feats ) {
+                last;
+            } else {
+                next;
+            }
+        }
+
         next unless $object;
+
         if ($object->has_tag('ID')) {
             my ($id) = $object->get_tag_values('ID');
             $self->throw("Oops! ID $id exists more than once in your file!")