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

Diff of /FigKernelScripts/changed_starts.pl

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

revision 1.4, Sun Aug 7 14:27:00 2005 UTC revision 1.5, Sat Aug 20 02:37:22 2005 UTC
# Line 32  Line 32 
32      $genome = &FIG::genome_of($peg);      $genome = &FIG::genome_of($peg);
33      $dna    = $fig->dna_seq($genome,$new_loc);      $dna    = $fig->dna_seq($genome,$new_loc);
34      $trans  = $fig->translate($dna,undef,'start');      $trans  = $fig->translate($dna,undef,'start');
35      if ((substr($trans,-1) ne "*") && (! $fig->possibly_truncated($peg)))      if ((substr($trans,-1) ne "*") && (($peg =~ /^new/) || (! $fig->possibly_truncated($peg))))
36      {      {
37          print STDERR "missing STOP on $peg\n";          print STDERR "missing STOP on $peg\n";
38      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3