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

[Brian Osborne]

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.");
>   +         }