tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-10-18 12:59:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed: bug #46679: Problems exporting bash functions to /bin/sh.

Browse source
This commit is contained in:
Ole Tange 2016-04-06 00:38:24 +02:00
parent b17f41d17f
commit 3d919c6cd4
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/parallel
View file

@ -3760,16 +3760,23 @@ sub tmpfifo {
}
sub qqx {
# Like qx but with clean environment (except for $PATH)
# Like qx but with clean environment (except for @keep)
# and STDERR ignored
# This is needed if the environment contains functions
# that /bin/sh does not understand
my $devnull = $Global::debug ? "" : "exec 2>/dev/null;";
return qx{ $devnull @_ };
my $PATH = $ENV{'PATH'};
my %env;
my @keep = qw(PATH SSH_AUTH_SOCK SSH_AGENT_PID);
@env{@keep} = @ENV{@keep};
local(%ENV);
$ENV{'PATH'} = $PATH;
return qx{ ( @_ ) 2>/dev/null };
%ENV = %env;
if($Global::debug) {
return qx{ @_ && true };
} else {
local *STDERR;
open (STDERR, ">", "/dev/null");
return qx{ @_ };
}
}
sub uniq {
@ -9082,15 +9089,13 @@ sub binary_find_max_length {
sub is_acceptable_command_line_length {
# Test if a command line of this length can run
# in the current environment
# Returns:
# 0 if the command line length is too long
# 1 otherwise
my $len = shift;
local *STDERR;
open (STDERR, ">", "/dev/null");
system "true "."x"x$len;
close STDERR;
$len += length $ENV{PARALLEL_ENV} + (-s $ENV{PARALLEL_ENV})*2;
::qqx("true "."x"x$len);
::debug("init", "$len=$? ");
return not $?;
}