X-Git-Url: https://git.donarmstrong.com/?p=uiuc_igb_scripts.git;a=blobdiff_plain;f=dqsub;h=1682d058c4871516720932a1a80f29ef2cd447ad;hp=eba737308758fdac1c9af77dae886c2cfb5c387b;hb=819b503b14406a8509f6ea12a425513b5916d9df;hpb=80f9499c68a3c8f31fc8bb3a52928a30c5226868

diff --git a/dqsub b/dqsub
index eba7373..1682d05 100755
--- a/dqsub
+++ b/dqsub
@@ -220,7 +220,7 @@ sub generate_qsub_options{
         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
@@ -260,7 +260,7 @@ sub write_qsub_script {
     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