More informative error message

bioperl · Oct 10, 2011 · 22a1b41 · 22a1b41
1 parent bab00a6
commit 22a1b41
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Bio/SeqFeature/Annotated.pm b/Bio/SeqFeature/Annotated.pm
@@ -719,7 +719,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 '".ref($seq)."'");
    }
 
    $self->{'seq'} = $seq;

diff --git a/Bio/SeqFeature/Generic.pm b/Bio/SeqFeature/Generic.pm
@@ -586,7 +586,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 '".ref($seq)."'");
    }
 
    $self->{'_gsf_seq'} = $seq;