diff options
| author | Jonathan Clark <jon.h.clark@gmail.com> | 2011-03-11 10:00:53 -0500 | 
|---|---|---|
| committer | Jonathan Clark <jon.h.clark@gmail.com> | 2011-03-11 10:00:53 -0500 | 
| commit | 13b15df6a00137395eae03ba3f33a987a916257b (patch) | |
| tree | a93bcaecc13280fbb7cc991c459f868b30375899 | |
| parent | 68bc85f2d3cfb0f5cd9c9bac254ae77c14923329 (diff) | |
another dumb bug involving cleanup being executed preemptively
| -rwxr-xr-x | vest/dist-vest.pl | 4 | 
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; } | 
