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

parallel: Warn if content of --jobs myfile is empty.

Browse source
This commit is contained in:
Ole Tange 2023-05-22 00:47:31 +02:00
parent 61f8b96f43
commit 268507ff25
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/parallel
View file

@ -8285,6 +8285,11 @@ sub user_requested_processes($) {
if(open(my $in_fh, "<", $Global::max_procs_file)) { if(open(my $in_fh, "<", $Global::max_procs_file)) {
my $opt_P_file = join("",<$in_fh>); my $opt_P_file = join("",<$in_fh>);
close $in_fh; close $in_fh;
if($opt_P_file !~ /\S/) {
::warning_once("$Global::max_procs_file is empty. ".
"Treated as 100%");
$opt_P_file = "100%";
}
$processes = $self->user_requested_processes($opt_P_file); $processes = $self->user_requested_processes($opt_P_file);
} else { } else {
::error("Cannot open $opt_P."); ::error("Cannot open $opt_P.");