[Bioperl-l] SearchIO/blast.pm 1.2.2 bug

[Jason Stajich]

I checked in changes - this bug wasn't on the main trunk, this code has
been split off for so long I guess this fix hadn't made it over.

It only happens when you have an extra newline:
Query= ID DESC

         (518 letters)

I checked in the fix to the repository and/or you can apply the attached
diff.  Or wait 20 minutes and download the updated file from the
http://cvs.open-bio.org CVS site.

-jason

--
Jason Stajich
Duke University
jason at cgt.mc.duke.edu
-------------- next part --------------
Index: Bio/SearchIO/blast.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO/blast.pm,v
retrieving revision 1.42.2.8
retrieving revision 1.42.2.9
diff -r1.42.2.8 -r1.42.2.9
1c1
< # $Id: blast.pm,v 1.42.2.8 2003/06/10 17:35:29 jason Exp $
---
> # $Id: blast.pm,v 1.42.2.9 2003/07/23 14:10:37 jason Exp $
267,271c267,269
< 	   while( defined ($_) && $_ !~ /^\s+$/ ) {	
< 	       chomp;
< 	       if( /\(([\d,]+)\s+letters.*\)/ ) {		   
< 		   $size = $1;
< 		   $size =~ s/,//g;
---
> 	   while( defined ($_) ) {
>                if( /^Database:/ ) {
> 		   $self->_pushback($_);
273,276d270
< 	       } else { 
< 		   $q .= " $_";
< 		   $q =~ s/ +/ /g;
< 		   $q =~ s/^ | $//g;
277a272,281
>                chomp;               
>                if( /\(([\d,]+)\s+letters.*\)/ ) {
>                    $size = $1;
>                    $size =~ s/,//g;
>                    last;
>                } else { 
>                    $q .= " $_";
>                    $q =~ s/ +/ /g;
>                    $q =~ s/^ | $//g;
>                }
279,280c283,284
< 	       $_ = $self->_readline;
< 	   }
---
>                $_ = $self->_readline;
>            }