X-Git-Url: https://git.donarmstrong.com/?p=uiuc_igb_scripts.git;a=blobdiff_plain;f=dqsub;fp=dqsub;h=eba737308758fdac1c9af77dae886c2cfb5c387b;hp=b1d1d0519e0e5b398e0c09ade09fe1491322b47f;hb=80f9499c68a3c8f31fc8bb3a52928a30c5226868;hpb=66d41abdd551962f5a58b95776b437fe7d179f9c

diff --git a/dqsub b/dqsub
index b1d1d05..eba7373 100755
--- a/dqsub
+++ b/dqsub
@@ -150,7 +150,10 @@ if ($options{interactive} and @ARGV) {
 }
 
 # pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
-print STDERR join("\n",@USAGE_ERRORS) and exit 1 if @USAGE_ERRORS;
+if (@USAGE_ERRORS) {
+    print STDERR map {"$_\n"} @USAGE_ERRORS;
+    exit 1;
+}
 
 # OK. Generate the options to qsub which we'll be using
 my @qsub_options = generate_qsub_options(\%options,\@ARGV);
@@ -216,7 +219,9 @@ sub generate_qsub_options{
     if ($options->{name}) {
         push @qo,'-N',$options->{name};
     } else {
-        push @qo,'-N',join('_',@{$args}[0..min($#{$args},2)]);
+        push @qo,'-N',join('_',
+                           map {s/[^a-zA-Z0-9]*//g; $_;}
+                          @{$args}[0..min($#{$args},2)]);
     }
     # join error and output streams
     if ($options->{join}) {