Commit cd4263f0 authored by Leo Gordon's avatar Leo Gordon
Browse files

bugfix

parent 41aa6834
......@@ -31,7 +31,13 @@ sub status_of_all_my_workers { # returns a hashref
my %status_hash = ();
foreach my $line (`$cmd`) {
my ($worker_pid, $user, $status, $queue) = split(/\s+/, $line);
my ($group_pid, $user, $status, $queue, $submission_host, $running_host, $job_name) = split(/\s+/, $line);
my $worker_pid = $group_pid;
if($job_name=~/(\[\d+\])/) {
$worker_pid .= $1;
}
$status_hash{$worker_pid} = $status;
}
return \%status_hash;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment