[Bioperl-guts-l] bioperl-live/Bio/SearchIO blast.pm,1.122,1.123

Christopher John Fields cjfields at dev.open-bio.org
Wed Nov 21 12:14:52 EST 2007


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

Modified Files:
	blast.pm 
Log Message:
bug 2391

Index: blast.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO/blast.pm,v
retrieving revision 1.122
retrieving revision 1.123
diff -C2 -d -r1.122 -r1.123
*** blast.pm	19 Nov 2007 18:31:20 -0000	1.122
--- blast.pm	21 Nov 2007 17:14:50 -0000	1.123
***************
*** 533,537 ****
                      last;
                  }
-                 chomp;
                  # below line fixes length issue with BLAST v2.2.13; still works 
                  # with BLAST v2.2.12
--- 533,536 ----
***************
*** 542,547 ****
                  }
                  else {
!                     $q .= " $_";
!                     $q =~ s/ +/ /g;
                      $q =~ s/^ | $//g;
                  }
--- 541,547 ----
                  }
                  else {
!                     # bug 2391
!                     $q .= ($_ =~ /^\w/) ? " $_" : $_;
!                     $q =~ s/\s+/ /g;
                      $q =~ s/^ | $//g;
                  }



More information about the Bioperl-guts-l mailing list