[Bio] / FigKernelScripts / split_sequences_into_sets.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/split_sequences_into_sets.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Mon Aug 24 16:29:17 2009 UTC revision 1.5, Tue Aug 25 16:30:16 2009 UTC
# Line 135  Line 135 
135          $i++;          $i++;
136          foreach my $peg (@$x)          foreach my $peg (@$x)
137          {          {
138              if (! $in{$peg})              if ((! $in{$peg}) && (! $seen->{$peg}))
139              {              {
140                  my $len = length($seq_of->{$peg});                  my $len = length($seq_of->{$peg});
141                  if ((abs($center_length - $len) / $center_length) <= (1 - $frac_cov))                  if ((abs($center_length - $len) / $center_length) <= (1 - $frac_cov))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3