[Bio] / FigKernelPackages / FigFam.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FigFam.pm

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

revision 1.54, Fri May 25 22:55:44 2007 UTC revision 1.55, Thu Jun 7 21:18:40 2007 UTC
# Line 808  Line 808 
808      my $bad = 0;      my $bad = 0;
809    
810      my $sims = [];      my $sims = [];
811      foreach $_ (@tmp)      for (my $simI=0; ($simI < @tmp) && (! $good) && (! $bad); $simI++)
812      {      {
813            $_ = $tmp[$simI];
814          if ($ENV{DEBUG}) { print STDERR $_ }          if ($ENV{DEBUG}) { print STDERR $_ }
815          chop;          chop;
816    
# Line 867  Line 868 
868              }              }
869          }          }
870      }      }
     $good = ($good && (! $bad)) ? 1 : 0;  
871      if ($ENV{DEBUG}) { print STDERR "        yes=$yes no=$no good=$good\n"; }      if ($ENV{DEBUG}) { print STDERR "        yes=$yes no=$no good=$good\n"; }
872      return ($good,$sims);      return ($good,$sims);
873  }  }

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3