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

Diff of /FigKernelScripts/rapid_propagation4.pl

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

revision 1.2, Thu Dec 2 19:53:30 2010 UTC revision 1.3, Sun Jan 16 18:30:12 2011 UTC
# Line 284  Line 284 
284                            $chkD,$tmpD,$restartD,$errD,                            $chkD,$tmpD,$restartD,$errD,
285                            qq(postprocess_mga.stderr), $kmerDataset);                            qq(postprocess_mga.stderr), $kmerDataset);
286    
287          &correct_frameshifts($keep,$fix_fs, $meta,$figV,$sapO,$annoO, $taxonID,$code, $chkD,$tmpD,$restartD,$errD);          &correct_frameshifts($keep,$fix_fs, $meta,$figV,$sapO,$annoO, $chkD,$tmpD,$restartD,$errD);
288          &find_and_backfill_missing_and_miscalled($keep,$backfill_gaps, $meta,$figV,$sapO,$annoO, $taxonID,$code,          &find_and_backfill_missing_and_miscalled($keep,$backfill_gaps, $meta,$figV,$sapO,$annoO, $taxonID,$code,
289                                                   $chkD,$tmpD,$restartD,$errD);                                                   $chkD,$tmpD,$restartD,$errD);
290      }      }
# Line 608  Line 608 
608              my %seen;              my %seen;
609              while (defined($_ = <IN>)) {              while (defined($_ = <IN>)) {
610                  chomp;                  chomp;
611                  my($peg,$func) = split(/\t/,$_);                  my ($peg, undef, $func) = split(/\t/,$_);
612                  if (! $seen{$peg}) {                  if (! $seen{$peg}) {
613                      $seen{$peg} = 1;                      $seen{$peg} = 1;
614                      print OUT "$peg\t$func\n";                      print OUT "$peg\t$func\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3