tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-26 07:57:58 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Ole Tange 2012-10-01 22:33:17 +02:00
parent 5c557c0973
commit b170f88593
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/parallel
View file

@ -1311,7 +1311,7 @@ sub drain_job_queue {
if($::opt_progress) {
my %progress = progress();
if($last_header ne $progress{'header'}) {
print $Global::original_stderr "\n",$progress{'header'},"\n";
print $Global::original_stderr "\n", $progress{'header'}, "\n";
$last_header = $progress{'header'};
}
print $Global::original_stderr "\r",$progress{'status'};
@ -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";
}
}