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: $PARALLEL_HOME will be created if it does not exist.

Browse source 
parallel: Fixed bug #62311: --pipepart + ::: fail.
This commit is contained in:
Ole Tange 2022-07-02 01:27:36 +08:00
parent 42cc048154
commit 60b88c9f3d
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/parallel
View file

@ -179,7 +179,10 @@ sub pipepart_setup() {
int($size / max_jobs_running() / int($size / max_jobs_running() /
-multiply_binary_prefix($opt::blocksize)); -multiply_binary_prefix($opt::blocksize));
} }
@Global::cat_prepends = map { pipe_part_files($_) } @opt::a; @Global::cat_prepends = (map { pipe_part_files($_) }
# ::: are put into files and given a filehandle
# ignore these and only keep the filenames.
grep { ! fileno $_ } @opt::a);
# Unget the empty arg as many times as there are parts # Unget the empty arg as many times as there are parts
$Global::JobQueue->{'commandlinequeue'}{'arg_queue'}->unget( $Global::JobQueue->{'commandlinequeue'}{'arg_queue'}->unget(
map { [Arg->new("\0noarg")] } @Global::cat_prepends map { [Arg->new("\0noarg")] } @Global::cat_prepends
@ -2781,6 +2784,8 @@ sub init_globals() {
} }
# no warnings to allow for undefined $XDG_* # no warnings to allow for undefined $XDG_*
no warnings 'uninitialized'; no warnings 'uninitialized';
# If $PARALLEL_HOME is set, but does not exist, try making it.
eval { File::Path::mkpath($ENV{'PARALLEL_HOME'}); };
# $xdg_config_home is needed to make env_parallel.fish stop complaining # $xdg_config_home is needed to make env_parallel.fish stop complaining
my $xdg_config_home = $ENV{'XDG_CONFIG_HOME'}; my $xdg_config_home = $ENV{'XDG_CONFIG_HOME'};
# config_dirs = $PARALLEL_HOME, $XDG_CONFIG_HOME/parallel, # config_dirs = $PARALLEL_HOME, $XDG_CONFIG_HOME/parallel,