[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.5, Sat Oct 28 14:27:05 2006 UTC revision 1.6, Tue Nov 14 17:35:44 2006 UTC
# Line 105  Line 105 
105  $to_call->export_features;  $to_call->export_features;
106    
107  if (! -s "$to_call_dir/Features/orf/tbl") {  if (! -s "$to_call_dir/Features/orf/tbl") {
108      &FIG::run("rm -fR $to_call_dir/Features/orf");      #
109        # Hrm, weird NFS effects here. There was a failure of this even though the directory
110        # was indeed empty.
111        system("rm -fR $to_call_dir/Features/orf");
112        if (-d "$to_call_dir/Features/orf")
113        {
114            warn "First remove did not work; sleeping and trying again";
115            sleep(2);
116            system("rm -fR $to_call_dir/Features/orf");
117        }
118  }  }
119  else {  else {
120      die "Something is wrong --- $to_call_dir/Features/orf/tbl is non-empty";      die "Something is wrong --- $to_call_dir/Features/orf/tbl is non-empty";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3