bin/basesmoker.run.pl

   1 #!/usr/bin/perl
   2
   3 my $PERL=shift or die;
   4 use File::Basename qw(dirname);
   5 my $BINDIR=dirname $0;
   6 # set -x
   7 # set -e
   8 while (){
   9     # cd $SOLVER_VARDIR/workdir
  10     warn "About to run $BINDIR/basesmoker.pl -v\n";
  11     0 == system $PERL, "$BINDIR/basesmoker.pl", "-v" or die;
  12     if ( -e "$BINDIR/basesmoker.stop" ){
  13         warn "Found $BINDIR/basesmoker.stop, stopping smoker\n";
  14         last;
  15     } else {
  16         warn "basesmoker.run.pl is starting the next instance of basesmoker.pl\n";
  17     }
  18 }