if ($options{interactive}) {
print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
- exec('qsub',@qsub_options);
+ exec($JOB_SUBMITTER,@qsub_options);
} else {
my @array = ();
if ($options{array}) {
}
}
}
+ if ($options{batch} eq 'pbs') {
+ push @qsub_options,'-';
+ }
call_qsub(\@qsub_options,write_qsub_script(\%options,\@ARGV,\@array));
}
sub call_qsub {
my ($qsub_options,$script) = @_;
my $qsub_fh;
- open $qsub_fh,'|-',$JOB_SUBMITTER,@{$qsub_options},'-' or
+ open $qsub_fh,'|-',$JOB_SUBMITTER,@{$qsub_options} or
die "Unable to start $JOB_SUBMITTER: $!";
print {$qsub_fh} $script or
die "Unable to print to $JOB_SUBMITTER: $!";