[Bioperl-l] Bio::DB::Fasta check for ragged line widths

[Lincoln Stein]

I'm happy I didn't catch this thread until just now, but my preferred course
of action was to do exactly what Brian did and accept the patch.

Lincoln

On 4/10/07, Brian Osborne <bosborne11 at verizon.net> wrote:
>
> OK, applied.
>
>
> On 4/6/07 11:31 PM, "Don Gilbert" <gilbertd at cricket.bio.indiana.edu>
> wrote:
>
> >   +      $l3_len= $l2_len; $l2_len= $l_len; $l_len= length($_); # need
> to
> > check every line :(
> >   +      if(DIE_ON_MISSMATCHED_LINES &&
> >   +        $l3_len>0 && $l2_len>0 && $l3_len!=$l2_len) {
> >   +         my $fap= substr($_,0,20)."..";
> >   +         $self->throw("Each line of the fasta entry must be the same
> length
> > except the last.
> >   +  Line above #$. '$fap' is $l2_len != $l3_len chars.");
> >   +         }
>
>
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>



-- 
Lincoln D. Stein
Cold Spring Harbor Laboratory
1 Bungtown Road
Cold Spring Harbor, NY 11724
(516) 367-8380 (voice)
(516) 367-8389 (fax)
FOR URGENT MESSAGES & SCHEDULING,
PLEASE CONTACT MY ASSISTANT,
SANDRA MICHELSEN, AT michelse at cshl.edu