if (not defined $options{batch}) {
qx/which sbatch/;
- if ($?) {
+ if ($? == 0) {
$options{batch} = 'slurm'
} else {
$options{batch} = 'pbs'
if ($options{interactive}) {
print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
- exec('qsub',@qsub_options);
+ exec($JOB_SUBMITTER,@qsub_options);
} else {
my @array = ();
if ($options{array}) {
}
}
}
+ if ($options{batch} eq 'pbs') {
+ push @qsub_options,'-';
+ }
call_qsub(\@qsub_options,write_qsub_script(\%options,\@ARGV,\@array));
}
return @qo;
}
-sub generate_slrum_options{
+sub generate_slurm_options{
my ($options,$args) = @_;
my @qo;
if (defined $options->{queue} and length $options->{queue}) {
sub call_qsub {
my ($qsub_options,$script) = @_;
my $qsub_fh;
- open $qsub_fh,'|-',$JOB_SUBMITTER,@{$qsub_options},'-' or
+ open $qsub_fh,'|-',$JOB_SUBMITTER,@{$qsub_options} or
die "Unable to start $JOB_SUBMITTER: $!";
print {$qsub_fh} $script or
die "Unable to print to $JOB_SUBMITTER: $!";