4 use File
::Basename
qw(dirname);
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";
16 warn "basesmoker.run.pl is starting the next instance of basesmoker.pl\n";