[Bioperl-guts-l] bioperl-live/Bio/Seq SeqWithQuality.pm,1.19,1.20

[Chad Matsalla]

Update of /home/repository/bioperl/bioperl-live/Bio/Seq
In directory pub.open-bio.org:/tmp/cvs-serv12182/Bio/Seq

Modified Files:
	SeqWithQuality.pm 
Log Message:
Fixed an oddball situation in which a reference was passed to the seq argument of the constructor


Index: SeqWithQuality.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Seq/SeqWithQuality.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** SeqWithQuality.pm	21 Apr 2004 17:33:07 -0000	1.19
--- SeqWithQuality.pm	29 Jun 2005 17:05:02 -0000	1.20
***************
*** 207,213 ****
  	     );
      }
!     elsif (UNIVERSAL::isa($seq,"Bio::PrimarySeq")) {
  	$self->{seq_ref} = $seq;
      }
  
      else {
--- 207,216 ----
  	     );
      }
!     elsif (UNIVERSAL::isa($seq,"Bio::PrimarySeq") ||  UNIVERSAL::isa($seq,"Bio::Seq")) {
  	$self->{seq_ref} = $seq;
      }
+ 	elsif (ref($seq)) {
+ 		$self->throw("You passed a seq argument into a SeqWithQUality object and it was a reference ($seq) which did not inherit from Bio::Seq or Bio::PrimarySeq. I don't know what to do with this.");
+ 	}
  
      else {