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

[Paul Cantalupo]

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;
-- 
1.6.4.2



Paul

Paul Cantalupo
Research Specialist/Systems Programmer
University of Pittsburgh
Pittsburgh, PA 15260