[Bioperl-l] Re: [Bioperl-guts-l] bioperl commit

[Aaron J Mackey]

On Mon, 14 Jul 2003, Jason Stajich wrote:

> bug #1469 - better guessing of format based on some regexps for filename
>
> +   return 'fasta' if (/\.fas(ta)?$/i or /\.m9/i or /\.ssearch$/i);

Hah, never knew this was in there ... would it be too selfish to make it:

/\.
 (?: t? fas (?:ta)? |
 m\d+ |
 (?: t? (?: fa |  fx |  fy |  ff |  fs ) ) |
 (?: (?:ss | os | ps) (?:earch)? )
 $/ix

-Aaron

-- 
 Aaron J Mackey
 Pearson Laboratory
 University of Virginia
 (434) 924-2821
 amackey at virginia.edu