add missing _ in here doc end

[uiuc_igb_scripts.git] / dqsub

diff --git a/dqsub b/dqsub
index 98e494780e6883c2d46c298fcd4268487743df92..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_
 )
@@ -219,7 +219,6 @@ EOF
 exec $command "\$OPT";
 EOF
         }
-        die "--array is currently not implemented";
     } else {
         $script .= <<EOF;
 # there's no array, so just executing the command with arguments