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

Fixed bug #46231: {%} with --pipepart broken.

Browse source
This commit is contained in:
Ole Tange 2015-10-17 17:10:04 +02:00
parent da9043fc65
commit 9636f9f249
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/parallel
View file

@ -123,9 +123,9 @@ if($opt::pipepart) {
$opt::blocksize = 1 + $size / $Global::max_jobs_running;
}
@Global::cat_partials = map { pipe_part_files($_) } @opt::a;
# Unget the command as many times as there are parts
$Global::JobQueue->{'commandlinequeue'}->unget(
map { $Global::JobQueue->{'commandlinequeue'}->get() } @Global::cat_partials
# Unget the empty arg as many times as there are parts
$Global::JobQueue->{'commandlinequeue'}{'arg_queue'}->unget(
map { [Arg->new("\0")] } @Global::cat_partials
);
}
if($opt::eta or $opt::bar or $opt::shuf or $Global::halt_pct) {

2
testsuite/wanted-results/parallel-local-0.3s
View file

@ -517,5 +517,7 @@ bug #46231: {%} with --pipepart broken. Should give 1+2
1
2
1
echo '**'
**
### 1 .par file from --files expected
1