mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-26 16:07:54 +00:00
Fixed bug #37589: Red Hat 9 (Shrike) perl v5.8.0 built for i386-linux-thread-multi error
This commit is contained in:
parent
d9675d0bd0
commit
c8e032b279
18
src/parallel
18
src/parallel
|
@ -1306,6 +1306,15 @@ sub start_another_job {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub init_progress {
|
||||||
|
# Returns:
|
||||||
|
# list of computers for progress output
|
||||||
|
$|=1;
|
||||||
|
my %progress = progress();
|
||||||
|
return ("\nComputers / CPU cores / Max jobs to run\n",
|
||||||
|
$progress{'workerlist'});
|
||||||
|
}
|
||||||
|
|
||||||
sub drain_job_queue {
|
sub drain_job_queue {
|
||||||
# Returns: N/A
|
# Returns: N/A
|
||||||
$Private::first_completed ||= time;
|
$Private::first_completed ||= time;
|
||||||
|
@ -1366,15 +1375,6 @@ sub toggle_progress {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
sub init_progress {
|
|
||||||
# Returns:
|
|
||||||
# list of computers for progress output
|
|
||||||
$|=1;
|
|
||||||
my %progress = progress();
|
|
||||||
return ("\nComputers / CPU cores / Max jobs to run\n",
|
|
||||||
$progress{'workerlist'});
|
|
||||||
}
|
|
||||||
|
|
||||||
sub progress {
|
sub progress {
|
||||||
# Returns:
|
# Returns:
|
||||||
# list of workers
|
# list of workers
|
||||||
|
|
Loading…
Reference in a new issue