tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-26 16:07:54 +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) { if($::opt_progress) {
my %progress = progress(); my %progress = progress();
if($last_header ne $progress{'header'}) { 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'}; $last_header = $progress{'header'};
} }
print $Global::original_stderr "\r",$progress{'status'}; print $Global::original_stderr "\r",$progress{'status'};
@ -1334,9 +1334,9 @@ sub drain_job_queue {
} while ($Global::total_running > 0 } while ($Global::total_running > 0
or or
not $Global::start_no_new_jobs and not $Global::JobQueue->empty()); not $Global::start_no_new_jobs and not $Global::JobQueue->empty());
if($::opt_progress) { if($::opt_progress) {
print $Global::original_stderr "\n"; my %progress = progress();
print $Global::original_stderr "\r", $progress{'status'}, "\n";
} }
} }