);
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;
}