From b170f8859357e03f31898c690f0f39eb5f58bcbb Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Mon, 1 Oct 2012 22:33:17 +0200
Subject: [PATCH] bug #34369: GNU Parallel Bug Reports Incorrect number of
 jobs-completed with --progress.

---
 src/parallel | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/parallel b/src/parallel
index 664609ec..06bac63c 100755
--- a/src/parallel
+++ b/src/parallel
@@ -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";
     }
 }