mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-26 07:57:58 +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 {
|
||||
# Returns: N/A
|
||||
$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 {
|
||||
# Returns:
|
||||
# list of workers
|
||||
|
|
Loading…
Reference in a new issue