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

Fix https://savannah.gnu.org/bugs/index.php?32191

Browse source
This commit is contained in:
Ole Tange 2011-01-21 18:50:23 +01:00
parent 4fd971f005
commit 0be50427fb
3 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/parallel
View file

@ -1064,8 +1064,7 @@ sub get_job_with_sshlogin {
if($::oodebug and not defined $job->{'commandline'}) { if($::oodebug and not defined $job->{'commandline'}) {
Carp::confess("get_job_with_sshlogin job->commandline should never be empty"); Carp::confess("get_job_with_sshlogin job->commandline should never be empty");
} }
my $next_command_line = $job->replaced(); my $clean_command = $job->replaced();
my $clean_command = $next_command_line;
if($clean_command =~ /^\s*$/) { if($clean_command =~ /^\s*$/) {
# Do not run empty lines # Do not run empty lines
if(not $Global::JobQueue->empty()) { if(not $Global::JobQueue->empty()) {
@ -1089,6 +1088,8 @@ sub get_job_with_sshlogin {
# Find another job to run # Find another job to run
my $nextjob; my $nextjob;
if(not $Global::JobQueue->empty()) { if(not $Global::JobQueue->empty()) {
# This can potentially recurse for all args
no warnings 'recursion';
$nextjob = get_job_with_sshlogin($sshlogin); $nextjob = get_job_with_sshlogin($sshlogin);
} }
# Push the command back on the queue # Push the command back on the queue

4
testsuite/tests-to-run/test50.sh Normal file
View file

@ -0,0 +1,4 @@
#!/bin/bash
echo '### Test fix #32191'
seq 1 150 | parallel -j9 --retries 2 -S localhost,: "/bin/non-existant 2>/dev/null"

1
testsuite/wanted-results/test50 Normal file
View file

@ -0,0 +1 @@
### Test fix #32191