Commit d6f5c850 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

BUGFIX: In transform(): $self->project() returns a listref.

parent 8ecf4f7d
......@@ -930,15 +930,16 @@ sub transform {
return $self->_deprecated_transform(@_);
}
my $new_gene = $self->SUPER::transform( @_ );
if( ! defined $new_gene ) {
# check if this gene projects at all to requested coord system,
my $new_gene = $self->SUPER::transform(@_);
if ( !defined($new_gene) ) {
# check if this gene projects at all to requested coord system,
# if not we are done.
my @segments = $self->project( @_ );
if( ! @segments ) {
my @segments = @{ $self->project(@_) };
if ( !@segments ) {
return undef;
}
$self->get_all_Transcripts();
$self->get_all_Transcripts();
}
if( exists $self->{'_transcript_array'} ) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment