From 4c52cc5412ce8dc3468a289e7b8b322a5e8c4f05 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jul 2016 13:01:58 -0700
Subject: [PATCH] tweak -N sanitation

---
 dqsub | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dqsub b/dqsub
index eba7373..3d6f6f7 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
-- 
2.39.2