More informative error message

bioperl · Oct 11, 2011 · 278e117 · 278e117
1 parent 67f2819
commit 278e117
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Bio/SeqFeature/Annotated.pm b/lib/Bio/SeqFeature/Annotated.pm
@@ -720,7 +720,7 @@ sub attach_seq {
    my ($self, $seq) = @_;
 
    if ( ! ($seq && ref($seq) && $seq->isa("Bio::PrimarySeqI")) ) {
-       $self->throw("Must attach Bio::PrimarySeqI objects to SeqFeatures");
+       $self->throw("Must attach Bio::PrimarySeqI objects to SeqFeatures but got an input of type '".ref($seq)."'");
    }
 
    $self->{'seq'} = $seq;