push @qo,'-N',$options->{name};
} else {
push @qo,'-N',join('_',
- map {s/[^a-zA-Z0-9]*//g; $_;}
+ map {my $a = $_; $a =~ s/[^a-zA-Z0-9]*//g; $a;}
@{$args}[0..min($#{$args},2)]);
}
# join error and output streams
my ($opt,$arg,$array) = @_;
my $script = "#!/bin/bash\n";
- my $command = join(' ',map {qq('$_')} @{$arg});
+ my $command = join(' ',map {$_ =~ /\s/?qq('$_'):$_} @{$arg});
$script .= <<EOF;
# this script was written by dqsub
EOF