fixup array slot limit

diff --git a/dqsub b/dqsub
index 77ff2254cba4e75166ef13deb320883f00990686..245f11ece72bca05abcc6736ba2c37badbaa5150 100755 (executable)
--- 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));