bug #34369: GNU Parallel Bug Reports Incorrect number of jobs-completed with --progress.

This commit is contained in:
Ole Tange 2012-10-01 22:33:17 +02:00
parent 5c557c0973
commit b170f88593

View file

@ -1334,9 +1334,9 @@ sub drain_job_queue {
} while ($Global::total_running > 0
or
not $Global::start_no_new_jobs and not $Global::JobQueue->empty());
if($::opt_progress) {
print $Global::original_stderr "\n";
my %progress = progress();
print $Global::original_stderr "\r", $progress{'status'}, "\n";
}
}