- print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
- exec($JOB_SUBMITTER,@qsub_options);
+ print STDERR 'running: '.$JOB_SUBMITTER.' '.join(' ',@qsub_options) if $DEBUG;
+ if ($options{batch} eq 'pbs') {
+ exec($JOB_SUBMITTER,@qsub_options);
+ } else {
+ exec('srun',@qsub_options);
+ }
+