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

Diff of /FigKernelScripts/FFB2_compare_tests.pl

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

revision 1.3, Fri Aug 13 21:46:34 2010 UTC revision 1.4, Mon Feb 14 22:44:07 2011 UTC
# Line 134  Line 134 
134          my($id, $func) = split(/\t/);          my($id, $func) = split(/\t/);
135          $func = SeedUtils::strip_func($func);          $func = SeedUtils::strip_func($func);
136    
137          my $pfunc = $r1{$id};          my $pfunc = delete $r1{$id};
138    
139          if ($func eq '' && $pfunc eq '')          if ($func eq '' && $pfunc eq '')
140          {          {
# Line 169  Line 169 
169          $num_assigned_2++;          $num_assigned_2++;
170      }      }
171    
172        for my $id (keys %r1)
173        {
174            # last assigned, we did not
175            $results->{num_calls_lost}++;
176            my $pfunc = $r1{$id};
177            push(@{$results->{calls_lost}}, [$id, $pfunc, undef]);
178        }
179    
180      $results->{this_num_assigned} = $num_assigned_2;      $results->{this_num_assigned} = $num_assigned_2;
181    
182      close(F);      close(F);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3