[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.4, Thu Oct 5 00:28:58 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    $to_call_dir =~ s/\/$//o;
40    
41  my $to_call;  my $to_call;
42  $to_call = new NewGenome($to_call_dir,"all");  $to_call = new NewGenome($to_call_dir,"all");
43  $to_call->promote_remaining_orfs;  $to_call->promote_remaining_orfs;
44  $to_call->export_features;  $to_call->export_features;
45    
46    if (! -s "$to_call_dir/Features/orf/tbl") {
47        &FIG::run("rm -fR $to_call_dir/Features/orf");
48    }
49    else {
50        die "Something is wrong --- $to_call_dir/Features/orf/tbl is non-empty";
51    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3