add missing _ in here doc end

diff --git a/dqsub b/dqsub
index 32a1a3a55ca998669527458c177cad14a7c8ab5a..8d12b21fc6f4f9a6ec256c2e53f42aff47ff70a8 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -204,7 +204,7 @@ EOF
     if (defined $opt->{array}) {
         my $array_opt = join("\n",@{$array});
         $script .= <<EOF;
-OPT=\$(sed -n -e "\$PBS_ARRAYID p"<<'_HERE_DOC_END'
+OPT=\$(sed -n -e "\$PBS_ARRAYID p"<<'_HERE_DOC_END_'
 $array_opt
 _HERE_DOC_END_
 )