[Bioperl-l] Added '.qual' suffix detection in _guess_format

[Robert Buels]

Applied!  Thanks Paul!

Rob

Paul Cantalupo wrote:
> Hi,
> 
> Below is a patch for allowing suffix detection of .qual files in Bio/SeqIO.pm
> 
> 
> ---
>  Bio/SeqIO.pm |    1 +
>  1 files changed, 1 insertions(+), 0 deletions(-)
> 
> diff --git a/Bio/SeqIO.pm b/Bio/SeqIO.pm
> index fe49822..cf6d3a2 100644
> --- a/Bio/SeqIO.pm
> +++ b/Bio/SeqIO.pm
> @@ -651,6 +651,7 @@ sub _guess_format {
>     return 'phd'     if /\.(phd|phred)$/i;
>     return 'pir'     if /\.pir$/i;
>     return 'pln'     if /\.pln$/i;
> +   return 'qual'    if /\.qual$/i;
>     return 'raw'     if /\.(txt)$/i;
>     return 'scf'     if /\.scf$/i;
>     return 'swiss'   if /\.(swiss|sp)$/i;