[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.13, Thu May 18 12:27:21 2006 UTC revision 1.14, Sun May 21 18:40:30 2006 UTC
# Line 441  Line 441 
441                  {                  {
442                      if ($ENV{'DEBUG'}) { print STDERR "    yes - $peg\n" }                      if ($ENV{'DEBUG'}) { print STDERR "    yes - $peg\n" }
443                      $yes++;                      $yes++;
444                        if ($yes > ($no+1)) { return (1,$sims) }
445                  }                  }
446                  else                  else
447                  {                  {
# Line 451  Line 452 
452              }              }
453          }          }
454      }      }
455      $should_be = ($yes > 1) && ((0.5 * $yes) >= $no);      if ($ENV{'DEBUG'}) { print STDERR "        yes=$yes no=$no\n" }
456      if ($ENV{'DEBUG'}) { print STDERR "        should_be = $should_be   yes=$yes no=$no\n" }      return (0,$sims);
     return ($should_be,$sims);  
457  }  }
458    
459  sub family_function {  sub family_function {

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3