|
@ -1,31 +1,32 @@ |
|
|
diff -uNr parallel-20180222/src/parallel parallel-20180222.mod/src/parallel
|
|
|
diff -uNr parallel-20190422/src/parallel parallel-20190422.mod/src/parallel
|
|
|
--- parallel-20180222/src/parallel 2018-02-22 21:42:51.000000000 +0200
|
|
|
--- parallel-20190422/src/parallel 2019-04-21 15:45:35.000000000 +0300
|
|
|
+++ parallel-20180222.mod/src/parallel 2018-06-21 12:36:46.066728715 +0300
|
|
|
+++ parallel-20190422.mod/src/parallel 2019-05-21 15:17:56.595625178 +0300
|
|
|
@@ -1137,7 +1137,7 @@
|
|
|
@@ -1325,7 +1325,7 @@
|
|
|
if($opt::bug) { ::die_bug("test-bug"); } |
|
|
if($opt::bug) { ::die_bug("test-bug"); } |
|
|
$Global::debug = $opt::D; |
|
|
$Global::debug = $opt::D; |
|
|
$Global::shell = $ENV{'PARALLEL_SHELL'} || parent_shell($$) |
|
|
$Global::shell = $ENV{'PARALLEL_SHELL'} || parent_shell($$) |
|
|
- || $ENV{'SHELL'} || "/bin/sh";
|
|
|
- || $ENV{'SHELL'} || "/bin/sh";
|
|
|
+ || $ENV{'SHELL'} || "@TERMUX_PREFIX@/bin/sh";
|
|
|
+ || $ENV{'SHELL'} || "@TERMUX_PREFIX@/bin/sh";
|
|
|
if(not which($Global::shell)) { |
|
|
if(not -x $Global::shell and not which($Global::shell)) { |
|
|
::error("Shell '$Global::shell' not found."); |
|
|
::error("Shell '$Global::shell' not found."); |
|
|
wait_and_exit(255); |
|
|
wait_and_exit(255); |
|
|
@@ -1488,11 +1488,11 @@
|
|
|
@@ -1780,12 +1780,12 @@
|
|
|
$Global::trim = 'n'; |
|
|
$Global::trim = 'n'; |
|
|
$Global::max_jobs_running = 0; |
|
|
$Global::max_jobs_running = 0; |
|
|
$Global::job_already_run = ''; |
|
|
$Global::job_already_run = ''; |
|
|
- $ENV{'TMPDIR'} ||= "/tmp";
|
|
|
- $ENV{'TMPDIR'} ||= "/tmp";
|
|
|
+ $ENV{'TMPDIR'} ||= "@TERMUX_PREFIX@/tmp";
|
|
|
+ $ENV{'TMPDIR'} ||= "@TERMUX_PREFIX@/tmp";
|
|
|
|
|
|
$ENV{'OLDPWD'} = $ENV{'PWD'}; |
|
|
if(not $ENV{HOME}) { |
|
|
if(not $ENV{HOME}) { |
|
|
# $ENV{HOME} is sometimes not set if called from PHP |
|
|
# $ENV{HOME} is sometimes not set if called from PHP |
|
|
- ::warning("\$HOME not set. Using /tmp.");
|
|
|
- ::warning("\$HOME not set. Using /tmp.");
|
|
|
- $ENV{HOME} = "/tmp";
|
|
|
- $ENV{HOME} = "/tmp";
|
|
|
+ ::warning("\$HOME not set. Using @TERMUX_HOME@.");
|
|
|
+ ::warning("\$HOME not set. Using @TERMUX_PREFIX@/tmp.");
|
|
|
+ $ENV{HOME} = "@TERMUX_HOME@";
|
|
|
+ $ENV{HOME} = "@TERMUX_PREFIX@/tmp";
|
|
|
} |
|
|
} |
|
|
# no warnings to allow for undefined $XDG_* |
|
|
# no warnings to allow for undefined $XDG_* |
|
|
no warnings 'uninitialized'; |
|
|
no warnings 'uninitialized'; |
|
|
@@ -3411,7 +3411,7 @@
|
|
|
@@ -3712,7 +3712,7 @@
|
|
|
unlink $stderrname; |
|
|
unlink $stderrname; |
|
|
|
|
|
|
|
|
my $pid = ::open3($stdin_fh,$stdout_fh,$stderr_fh, |
|
|
my $pid = ::open3($stdin_fh,$stdout_fh,$stderr_fh, |
|
@ -34,7 +35,7 @@ diff -uNr parallel-20180222/src/parallel parallel-20180222.mod/src/parallel |
|
|
if(my $writerpid = fork()) { |
|
|
if(my $writerpid = fork()) { |
|
|
close $stdin_fh; |
|
|
close $stdin_fh; |
|
|
@stdout = <$stdout_fh>; |
|
|
@stdout = <$stdout_fh>; |
|
|
@@ -4758,6 +4758,7 @@
|
|
|
@@ -5216,6 +5216,7 @@
|
|
|
my $bsd = q(ps -o pid,ppid,command -ax); |
|
|
my $bsd = q(ps -o pid,ppid,command -ax); |
|
|
%pid_parentpid_cmd = |
|
|
%pid_parentpid_cmd = |
|
|
( |
|
|
( |
|
|