-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);
if ($options{interactive}) {
# OK. Generate the options to qsub which we'll be using
my @qsub_options = generate_qsub_options(\%options);
if ($options{interactive}) {
push @l,'mem=',$options->{mem};
}
push @qo,'-l',join(',',@l) if @l;
push @l,'mem=',$options->{mem};
}
push @qo,'-l',join(',',@l) if @l;
$fh = IO::File->new(defined $options->{array_from}) or
die "Unable to open $options->{array_from} for reading: $!";
}
$fh = IO::File->new(defined $options->{array_from}) or
die "Unable to open $options->{array_from} for reading: $!";
}