my @qsub_options = generate_qsub_options(\%options);
if ($options{interactive}) {
- print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG:
+ print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
exec('qsub',@qsub_options);
} else {
my @array = ();
$fh = IO::File->new(defined $options->{array_from}) or
die "Unable to open $options->{array_from} for reading: $!";
}
- my @arrah;
+ my @array;
for (<$fh>) {
chomp;
push @array,$_;