From 8f2f994ff168855b32d318923b312731340a5f9e Mon Sep 17 00:00:00 2001 From: Brian Osborne Date: Tue, 16 Jul 2013 11:13:00 -0400 Subject: [PATCH] Corrected, all SearchIO tests pass --- Bio/Search/HSP/GenericHSP.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Bio/Search/HSP/GenericHSP.pm b/Bio/Search/HSP/GenericHSP.pm index f80818156..a8f12766a 100644 --- a/Bio/Search/HSP/GenericHSP.pm +++ b/Bio/Search/HSP/GenericHSP.pm @@ -985,17 +985,17 @@ sub significance { =cut -# sub strand { -# my ($self,$type) = @_; +sub strand { + my ($self,$type) = @_; -# if( $type =~ /^q/i && defined $self->{'QUERY_STRAND'} ) { -# return $self->{'QUERY_STRAND'}; -# } elsif( $type =~ /^(hit|subject|sbjct)/i && defined $self->{'HIT_STRAND'} ) { -# return $self->{'HIT_STRAND'};; -# } + if( $type =~ /^q/i && defined $self->{'QUERY_STRAND'} ) { + return $self->{'QUERY_STRAND'}; + } elsif( $type =~ /^(hit|subject|sbjct)/i && defined $self->{'HIT_STRAND'} ) { + return $self->{'HIT_STRAND'}; + } -# 0; # Should never get here -# } + return $self->SUPER::strand($type) +} =head2 score -- 2.11.4.GIT