[Bioperl-guts-l] bioperl-live/Bio/SearchIO blast.pm,1.88,1.89

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-live/Bio/SearchIO
In directory pub.open-bio.org:/tmp/cvs-serv18769/Bio/SearchIO

Modified Files:
	blast.pm 
Log Message:
enforce \n for expected line feed


Index: blast.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO/blast.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -C2 -d -r1.88 -r1.89
*** blast.pm	9 Jun 2005 14:30:30 -0000	1.88
--- blast.pm	26 Sep 2005 19:18:14 -0000	1.89
***************
*** 401,405 ****
     my $gapped_stats = 0; # for switching between gapped/ungapped
                           # lambda, K, H
!    
     while( defined ($_ = $self->_readline )) {
         next if( /^\s+$/); # skip empty lines
--- 401,405 ----
     my $gapped_stats = 0; # for switching between gapped/ungapped
                           # lambda, K, H
!    local $_ = "\n";
     while( defined ($_ = $self->_readline )) {
         next if( /^\s+$/); # skip empty lines