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

[Jason Stajich]

Aaron I'm adding this as well as some tests for this method in
t/SearchIO.t

On Tue, 15 Jul 2003, Aaron J Mackey wrote:

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

--
Jason Stajich
Duke University
jason at cgt.mc.duke.edu