[Bioperl-guts-l] bioperl-live/Bio/DB/GFF Segment.pm,1.32,1.33

Lincoln Stein lstein at dev.open-bio.org
Tue Oct 16 21:22:31 EDT 2007


Update of /home/repository/bioperl/bioperl-live/Bio/DB/GFF
In directory dev.open-bio.org:/tmp/cvs-serv29101/Bio/DB/GFF

Modified Files:
	Segment.pm 
Log Message:
squelched warning about empty sequence in Bio::DB::GFF::Feature->seq() call when no DNA has been attached

Index: Segment.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Segment.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Segment.pm	14 Jun 2007 14:16:11 -0000	1.32
--- Segment.pm	17 Oct 2007 01:22:29 -0000	1.33
***************
*** 309,312 ****
--- 309,313 ----
    my $dna = $self->dna;
    require Bio::PrimarySeq unless Bio::PrimarySeq->can('new');
+   return Bio::PrimarySeq->new(-id => $self->display_name) unless $dna;
    return Bio::PrimarySeq->new(-seq => $dna,
  			      -id  => $self->display_name);



More information about the Bioperl-guts-l mailing list