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';
map {my $a = $_; $a =~ s/[^a-zA-Z0-9]*//g; $a;}
@{$args}[0..min($#{$args},2)]);
}
- # join error and output streams
- if ($options->{join}) {
- push @qo,'-j','oe';
- }
return @qo;
}