}
if (not defined $options{batch}) {
- qx/which sbatch/;
+ qx{which sbatch >/dev/null 2>&1};
if ($? == 0) {
$options{batch} = 'slurm'
} else {
if ($options{interactive}) {
print STDERR 'running: '.$JOB_SUBMITTER.' '.join(' ',@qsub_options) if $DEBUG;
- exec($JOB_SUBMITTER,@qsub_options);
+ if ($options{batch} eq 'pbs') {
+ exec($JOB_SUBMITTER,@qsub_options);
+ } else {
+ exec('srun',@qsub_options,$ENV{SHELL}//'bash');
+ }
+
} else {
my @array = ();
if ($options{array}) {
push @qo,'--mem='.$options{mem};
}
if ($options->{interactive}) {
- push @qo,'-I';
+ push @qo,'--pty';
}
if ($options->{name}) {
push @qo,'-J',$options->{name};