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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.45, Tue Apr 19 03:01:45 2005 UTC revision 1.46, Tue Apr 26 15:08:26 2005 UTC
# Line 483  Line 483 
483                  $seq =~ s/[ \n\t]//gs;                  $seq =~ s/[ \n\t]//gs;
484                  $seq_of{$peg} = uc $seq;                  $seq_of{$peg} = uc $seq;
485              }              }
486                else
487                {
488                    $line = <IN>;
489                }
490          }          }
491          close(IN);          close(IN);
492          $trans_pegs = $fig->translate_pegs(\%pegs,\%seq_of);          $trans_pegs = $fig->translate_pegs(\%pegs,\%seq_of);
# Line 680  Line 684 
684              $seq =~ s/[ \n\t]//gs;              $seq =~ s/[ \n\t]//gs;
685              $seq_of{$peg} = uc $seq;              $seq_of{$peg} = uc $seq;
686          }          }
687            else
688            {
689                $line = <IN>;
690      }      }
691      close(IN);      close(IN);
692      $trans_pegs = $fig->translate_pegs(\%pegs,\%seq_of);      $trans_pegs = $fig->translate_pegs(\%pegs,\%seq_of);

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3