add --join option

diff --git a/dqsub b/dqsub
index 910cafd20b9eb08b9329e5ab48983b31230fef66..b1d1d0519e0e5b398e0c09ade09fe1491322b47f 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -32,6 +32,7 @@ dqsub [options]
    --mem memory to request
    --dir Directory to run the script in (default current directory)
    --account, -A Account name to use
+   --join, -J join error and output streams (default)
    --name, -N Name of the job
    --debug, -d debugging level (Default 0)
    --help, -h display this help
@@ -65,6 +66,11 @@ given, arguments will be read from STDIN.
 
 Account name to use
 
+=item B<--join, J>
+
+Whether to join STDOUT and STDERR. On by default; disable with
+C<--nojoin>.
+
 =item B<--debug, -d>
 
 Debug verbosity. (Default 0)
@@ -99,6 +105,7 @@ my %options = (nodes           => 1,
                man             => 0,
                interactive     => 0,
                array_per_job   => 1,
+               join            => 1,
               );
 
 GetOptions(\%options,
@@ -112,6 +119,7 @@ GetOptions(\%options,
            'array_all_in_one_job|array-all-in-one-job!',
            'ppn|processors-per-node=i',
            'account|A=s',
+           'join|J!',
            'mem|memory=s',
            'time|walltime=s','cputime|cput=s','host=s',
            'pmem|process_mem|process-mem=s',
@@ -210,6 +218,10 @@ sub generate_qsub_options{
     } else {
         push @qo,'-N',join('_',@{$args}[0..min($#{$args},2)]);
     }
+    # join error and output streams
+    if ($options->{join}) {
+        push @qo,'-j','oe';
+    }
     return @qo;
 }