[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.15, Mon May 29 18:07:44 2006 UTC revision 1.16, Tue May 30 02:50:58 2006 UTC
# Line 190  Line 190 
190                              $bad = $id2;                              $bad = $id2;
191                              $bad_sc = $sim->[2];                              $bad_sc = $sim->[2];
192                          }                          }
193                            elsif ($peg eq "fig|262719.3.peg.75")
194                            {
195                                print STDERR "ok: $func\n$func2\n$id2\n";
196                            }
197                      }                      }
198                  }                  }
199    
# Line 360  Line 364 
364  sub loose_same_func {  sub loose_same_func {
365      my($f1,$f2) = @_;      my($f1,$f2) = @_;
366    
367      if (&SameFunc::same_func($f1,$f2)) { return 1 }      if (&SameFunc::same_func($f1,$f2,'strong')) { return 1 }
368      my @s1 = split(/\s*[;\/@]\s*/,$f1);      my @s1 = split(/\s*[;\/@]\s*/,$f1);
369      my @s2 = split(/\s*[;\/@]\s*/,$f2);      my @s2 = split(/\s*[;\/@]\s*/,$f2);
370      if ((@s1 == 1) && (@s2 > 1) && &member($s1[0],\@s2))      if ((@s1 == 1) && (@s2 > 1) && &member($s1[0],\@s2))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3