From 6ff8280b017eb99c4ce759895d460bcb76646f4c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 Aug 2015 10:16:53 -0700
Subject: [PATCH] fixup array slot limit

---
 dqsub | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dqsub b/dqsub
index 77ff225..245f11e 100755
--- a/dqsub
+++ b/dqsub
@@ -138,8 +138,8 @@ if ($options{interactive}) {
         @array = read_array_options(\%options) if $options{array};
         # the -t option gives the range of elements for an array job
         push @qsub_options,'-t','1-'. scalar @array;
-        if ($options->{array_slot_limit}) {
-            @qsub_options[$#qsub_options] .= '%'.$options->{array_slot_limit};
+        if ($options{array_slot_limit}) {
+            $qsub_options[$#qsub_options] .= '%'.$options{array_slot_limit};
         }
     }
     call_qsub(\@qsub_options,write_qsub_script(\%options,\@ARGV,\@array));
-- 
2.39.2