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

parallel: Redirect STDERR temporarily, so errors on MacOS X are ignored.

Browse source
This commit is contained in:
Ole Tange 2016-10-22 13:32:59 +02:00
parent a315bd26e6
commit 1863566363
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/parallel
View file

@ -7725,8 +7725,15 @@ sub start {
"perl -MIPC::Open3 -e ". "perl -MIPC::Open3 -e ".
::shell_quote_scalar_default($script) ::shell_quote_scalar_default($script)
); );
# Redirect STDERR temporarily,
# so errors on MacOS X is ignored.
open my $saveerr, ">&STDERR";
open STDERR, '>', "/dev/null";
# Run the test
::debug("init",qq{bash -c $bash 2>/dev/null}); ::debug("init",qq{bash -c $bash 2>/dev/null});
qx{ bash -c $bash 2>/dev/null }; qx{ bash -c $bash 2>/dev/null };
open STDERR, ">&", $saveerr;
if(-e $name) { if(-e $name) {
# Does not support open3(x,x,x,"-") # Does not support open3(x,x,x,"-")
# or does not have bash: # or does not have bash: