[Bioperl-l] patch: fix parsing of FASTA results

[Dave Messina]

Committed. Tests pass.

Thanks, Aaron!


Dave



On Jun 9, 2010, at 4:50 PM, Aaron Mackey wrote:

> Hopefully someone a bit more git-savvy than me can drop this little ditty in
> to Bio/SearchIO/fasta.pm?
> 
> [ajm6q at lc4 SearchIO]$ diff -u fasta.pm~ fasta.pm
> --- fasta.pm~    2010-04-09 12:59:00.000000000 -0400
> +++ fasta.pm    2010-06-09 10:46:11.350773222 -0400
> @@ -623,7 +623,7 @@
>             $_ = $self->_readline();
>             my ( $score, $bits, $e ) = /Z-score: \s* (\S+) \s*
>                                (?: bits: \s* (\S+) \s+ )?
> -                               (?: E|expect ) \s* \(\) :? \s*(\S+)/ox;
> +                               (?: E|expect ) \s* \((?:\d+)?\) :?
> \s*(\S+)/ox;
>             $bits = $score unless defined $bits;
> 
>             my $v = shift @hit_signifs;
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-l