if ($options{interactive}) {
print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
if ($options{interactive}) {
print STDERR 'running: qsub '.join(' ',@qsub_options) if $DEBUG;
call_qsub(\@qsub_options,write_qsub_script(\%options,\@ARGV,\@array));
}
call_qsub(\@qsub_options,write_qsub_script(\%options,\@ARGV,\@array));
}
- 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: $!";
die "Unable to start $JOB_SUBMITTER: $!";
print {$qsub_fh} $script or
die "Unable to print to $JOB_SUBMITTER: $!";