fix $? test for batch option

[uiuc_igb_scripts.git] / dqsub

diff --git a/dqsub b/dqsub
index fe95bba7f4279b5bc4cdb89f54da3761ba72a17f..d9963d33d4c944c02d6e3320e77d325cac474bdc 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -157,7 +157,7 @@ if ($options{interactive} and @ARGV) {
 
 if (not defined $options{batch}) {
     qx/which sbatch/;
-    if ($?) {
+    if ($? == 0) {
         $options{batch} = 'slurm'
     } else {
        $options{batch} = 'pbs'
@@ -260,7 +260,7 @@ sub generate_qsub_options{
     return @qo;
 }
 
-sub generate_slrum_options{
+sub generate_slurm_options{
     my ($options,$args) = @_;
     my @qo;
     if (defined $options->{queue} and length $options->{queue}) {