summaryrefslogtreecommitdiff
path: root/vest/parallelize.pl
diff options
context:
space:
mode:
authorJonathan Clark <jon.h.clark@gmail.com>2011-03-11 09:05:04 -0500
committerJonathan Clark <jon.h.clark@gmail.com>2011-03-11 09:05:04 -0500
commit3dfa575d202c9277060bc43a7af9351702da9f12 (patch)
tree4439113ca7f9ed59dd4ded9d3de1db5c2adaae69 /vest/parallelize.pl
parent474fb566124aadf2de1cc73d3788386bd584eb15 (diff)
fix my dumb bug that killed qsub functionality
Diffstat (limited to 'vest/parallelize.pl')
-rwxr-xr-xvest/parallelize.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/vest/parallelize.pl b/vest/parallelize.pl
index 47b77c79..2798a303 100755
--- a/vest/parallelize.pl
+++ b/vest/parallelize.pl
@@ -82,7 +82,7 @@ sub preview_files {
my @f=grep { ! ($skipempty && -z $_) } @$l;
my $fn=join(' ',map {escape_shell($_)} @f);
my $cmd="tail -n $n $fn";
- check_output("$cmd").($footer?"\nNONEMPTY FILES:\n$fn\n":"");
+ unchecked_output("$cmd").($footer?"\nNONEMPTY FILES:\n$fn\n":"");
}
sub prefix_dirname($) {
#like `dirname but if ends in / then return the whole thing
@@ -323,7 +323,7 @@ sub launch_job {
}
if ($joblist == "") { $joblist = $jobid; }
else {$joblist = $joblist . "\|" . $jobid; }
- my $cleanfn=check_output("qdel $jobid 2> /dev/null");
+ my $cleanfn="qdel $jobid 2> /dev/null";
push(@cleanup_cmds, $cleanfn);
}
close QOUT;