summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonathan Clark <jon.h.clark@gmail.com>2011-03-11 10:00:53 -0500
committerJonathan Clark <jon.h.clark@gmail.com>2011-03-11 10:00:53 -0500
commit1d322c2995eda608c0800d9bd988f0c2c938eeec (patch)
treecc99cc0326279a2ea5fe621c1473cd3347693df0
parenta113ca571dced17918dfc4c3d8bf32d6e87c80c9 (diff)
another dumb bug involving cleanup being executed preemptively
-rwxr-xr-xvest/dist-vest.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/vest/dist-vest.pl b/vest/dist-vest.pl
index f6f661b9..c27af804 100755
--- a/vest/dist-vest.pl
+++ b/vest/dist-vest.pl
@@ -371,12 +371,12 @@ while (1){
if ($first_shard) { print STDERR "$script\n"; $first_shard=0; }
$nmappers++;
- my $qcmd = "QSUB_CMD -N $client_name -o /dev/null -e $logdir/$client_name.ER $script_file";
+ my $qcmd = "$QSUB_CMD -N $client_name -o /dev/null -e $logdir/$client_name.ER $script_file";
my $jobid = check_output("$qcmd");
chomp $jobid;
$jobid =~ s/^(\d+)(.*?)$/\1/g;
$jobid =~ s/^Your job (\d+) .*$/\1/;
- push(@cleanupcmds, check_output("qdel $jobid 2> /dev/null"));
+ push(@cleanupcmds, "qdel $jobid 2> /dev/null");
print STDERR " $jobid";
if ($joblist == "") { $joblist = $jobid; }
else {$joblist = $joblist . "\|" . $jobid; }