-pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+# pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+print STDERR join("\n",@USAGE_ERRORS) and exit 1 if @USAGE_ERRORS;
# OK. Generate the options to qsub which we'll be using
my @qsub_options = generate_qsub_options(\%options);
# OK. Generate the options to qsub which we'll be using
my @qsub_options = generate_qsub_options(\%options);
push @l,'mem=',$options->{mem};
}
push @qo,'-l',join(',',@l) if @l;
push @l,'mem=',$options->{mem};
}
push @qo,'-l',join(',',@l) if @l;