This commit was manufactured by cvs2svn to create tag

'bioperl-061-pre1'. svn path=/bioperl-live/tags/bioperl-061-pre1/; revision=1301
bioperl · May 15, 2000 · b96c2f2 · b96c2f2
1 parent 3d09026
commit b96c2f2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Bio/Tools/Blast/Sbjct.pm b/Bio/Tools/Blast/Sbjct.pm
@@ -26,7 +26,7 @@ use Bio::Root::Object  ();
 use strict;
 use vars qw($ID $VERSION %SUMMARY_OFFSET $Revision);
 $ID = 'Bio::Tools::Blast::Sbjct';
-$VERSION = 0.091;
+$VERSION = 0.09;
 $Revision = '$Id$';  #'
 
 my $_prog       = '';
@@ -218,7 +218,7 @@ See the L<FEEDBACK> section for where to send bug reports and comments.
 
 =head1 VERSION
 
-Bio::Tools::Blast::Sbjct.pm, 0.091
+Bio::Tools::Blast::Sbjct.pm, 0.09
 
 =head1 COPYRIGHT
 
@@ -546,7 +546,7 @@ sub _set_hsps {
 	       } else {
 		   push @hspList, $hspObj;
                    if (!defined($self->{'_expect'}) || $hspObj->expect() < $self->{'_expect'}) {
-                       $self->{'_expect'} = $hspObj->expect();
+                       $self->{_expect} = $hspObj->expect();
                    }
                    if (!defined($self->{'_p'}) || $hspObj->p() < $self->{'_p'}) {
                        $self->{'_p'} = $hspObj->p();