Merge pull request #202 from RoyChaudhuri/master

Fix for bug #201, print ID line if custom ID sub defined
bioperl · Sep 23, 2016 · eed341d · eed341d
2 parents f5586d4 + 009521c
commit eed341d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/SeqIO/embl.pm b/Bio/SeqIO/embl.pm
@@ -554,8 +554,8 @@ sub _write_ID_line {
 
         $mol ||= '';            # 'unassigned'; ?
         $id_line = "ID   $name; SV $version; $topology; $mol; STD; $div; $len BP.\nXX\n";
-        $self->_print($id_line);
     }
+    $self->_print($id_line);
 }
 
 =head2 _is_valid_division