Changeset 278

Show
Ignore:
Timestamp:
11/04/09 15:48:01 (3 weeks ago)
Author:
cholt
Message:

fix fasta parsing

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • lib/Fasta.pm

    r151 r278  
    214214        $seq .= $l; 
    215215    } 
    216      
     216 
     217    #remove contaminating whitespace 
     218    $seq =~ s/\s+//g; 
     219 
    217220    return \$seq; 
    218221}