tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-29 09:27:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

sem: --fg --line-buffer failed.

Browse source
This commit is contained in:
Ole Tange 2015-01-02 11:06:32 +01:00
parent 11a05ca1a3
commit ad163a999e
3 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/parallel
View file

@ -5450,9 +5450,9 @@ sub set_non_blocking {
for my $fdno (1,2) { for my $fdno (1,2) {
my $fdr = $self->fh($fdno,'r'); my $fdr = $self->fh($fdno,'r');
my $flags; my $flags;
fcntl($fdr, &F_GETFL, $flags) || die $!; # Get the current flags on the filehandle fcntl($fdr, &::F_GETFL, $flags) || die $!; # Get the current flags on the filehandle
$flags |= &O_NONBLOCK; # Add non-blocking to the flags $flags |= &::O_NONBLOCK; # Add non-blocking to the flags
fcntl($fdr, &F_SETFL, $flags) || die $!; # Set the flags on the filehandle fcntl($fdr, &::F_SETFL, $flags) || die $!; # Set the flags on the filehandle
} }
} }

3
testsuite/tests-to-run/sem01.sh
View file

@ -42,3 +42,6 @@ sem --wait
echo '### Test bug #33621: --bg -p should give an error message' echo '### Test bug #33621: --bg -p should give an error message'
stdout parallel -p --bg echo x{} stdout parallel -p --bg echo x{}
echo '### Failed on 20141226'
sem --fg --line-buffer --id lock_id echo OK

2
testsuite/wanted-results/sem01
View file

@ -96,3 +96,5 @@ done 4
40 40
### Test bug #33621: --bg -p should give an error message ### Test bug #33621: --bg -p should give an error message
parallel: Error: Jobs running in the background cannot be interactive. parallel: Error: Jobs running in the background cannot be interactive.
### Failed on 20141226
OK