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

Diff of /FigKernelScripts/promote_orfs_to_pegs.pl

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

revision 1.1, Mon Sep 4 22:24:32 2006 UTC revision 1.2, Wed Sep 13 03:27:45 2006 UTC
# Line 34  Line 34 
34  (  (
35   ($to_call_dir = shift @ARGV)   ($to_call_dir = shift @ARGV)
36  )  )
37      || die $usage;      || die "\n   $usage\n\n";
38    
39  my $to_call;  my $to_call;
40  $to_call = new NewGenome($to_call_dir,"all");  $to_call = new NewGenome($to_call_dir,"all");
41  $to_call->promote_remaining_orfs;  $to_call->promote_remaining_orfs;
42  $to_call->export_features;  $to_call->export_features;
43    
44    if (!-s "$to_call_dir/Features/orf/tbl") {
45        &FIG::run("rm -fR $to_call_dir/Features/orf");
46    }
47    else {
48        die "Something is wrong --- $to_call_dir/Features/orf/tbl is non-empty";
49    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3