if (not defined $options{batch}) {
qx/which sbatch/;
- if ($?) {
+ if ($? == 0) {
$options{batch} = 'slurm'
} else {
$options{batch} = 'pbs'
);
for my $k (keys %options_map) {
if ($options->{$k}) {
- push @qo,'--'.$options_map{$k}.'=',$options{$k};
+ push @qo,'--'.$options_map{$k}.'='.$options{$k};
}
}
if ($options{mem}) {
- push @qo,'--mem=',$options{mem};
+ push @qo,'--mem='.$options{mem};
}
if ($options->{interactive}) {
push @qo,'-I';