tweak -N sanitation

diff --git a/dqsub b/dqsub
index eba737308758fdac1c9af77dae886c2cfb5c387b..3d6f6f79d93cb44a0ef861032035ca4ae7484ca5 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -220,7 +220,7 @@ sub generate_qsub_options{
         push @qo,'-N',$options->{name};
     } else {
         push @qo,'-N',join('_',
         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
                           @{$args}[0..min($#{$args},2)]);
     }
     # join error and output streams