diff --git a/10seconds_install b/10seconds_install index 9be2e3bf..02c54ec7 100644 --- a/10seconds_install +++ b/10seconds_install @@ -12,7 +12,7 @@ # # It first tries to install it globally. # If that fails, it does a personal installation. -# If that fails, it does copies to $HOME/bin +# If that fails, it copies to $HOME/bin LATEST=$(wget -qO- http://ftpmirror.gnu.org/parallel | perl -ne '/(parallel-\d{8})/ and print $1."\n"' | sort | tail -n1) if test \! -d $LATEST/src/; then diff --git a/doc/release_new_version b/doc/release_new_version index ff406bd9..738b7f04 100644 --- a/doc/release_new_version +++ b/doc/release_new_version @@ -195,9 +195,9 @@ cc:Sandro Cazzaniga , Ryoichiro Suzuki , Jesse Alama -Subject: GNU Parallel 20130722 ('') released +Subject: GNU Parallel 20130722 ('Engelbart') released -GNU Parallel 20130722 ('') has been released. It is +GNU Parallel 20130722 ('Engelbart') has been released. It is available for download at: http://ftp.gnu.org/gnu/parallel/ Very few changes so this can be considered a stable release. diff --git a/src/parallel b/src/parallel index 83b39ae4..8c1026db 100755 --- a/src/parallel +++ b/src/parallel @@ -39,6 +39,12 @@ if(not $ENV{SHELL}) { ::warning("\$SHELL not set. Using /bin/sh.\n"); $ENV{SHELL} = "/bin/sh"; } +if(not $ENV{HOME}) { + # $ENV{HOME} is sometimes not set if called from PHP + ::warning("\$HOME not set. Using /tmp\n"); + $ENV{HOME} = "/tmp"; +} + save_sig_stdin_stdout_stderr(); parse_options(); diff --git a/testsuite/tests-to-run/parallel-local4.sh b/testsuite/tests-to-run/parallel-local4.sh index 2bdd3ffd..630fce82 100644 --- a/testsuite/tests-to-run/parallel-local4.sh +++ b/testsuite/tests-to-run/parallel-local4.sh @@ -22,4 +22,9 @@ echo '### -l -n with pipe' echo '### bug #39360: --joblog does not work with --pipe' seq 100 | parallel --joblog - --pipe wc | tr '0-9' 'X' +echo '### How do we deal with missing $HOME' + unset HOME; stdout perl -w $(which parallel) echo ::: 1 2 3 + +echo '### How do we deal with missing $SHELL' + unset SHELL; stdout perl -w $(which parallel) echo ::: 1 2 3 EOF diff --git a/testsuite/wanted-results/parallel-local4 b/testsuite/wanted-results/parallel-local4 index 5905b824..64d5c185 100644 --- a/testsuite/wanted-results/parallel-local4 +++ b/testsuite/wanted-results/parallel-local4 @@ -93,3 +93,17 @@ echo '### bug #39360: --joblog does not work with --pipe' Seq Host Starttime Runtime Send Receive Exitval Signal Command X : XXXXXXXXXX.XXX X.XXX X X X X wc XXX XXX XXX +echo '### How do we deal with missing $HOME' +### How do we deal with missing $HOME + unset HOME; stdout perl -w $(which parallel) echo ::: 1 2 3 +parallel: Warning: $HOME not set. Using /tmp +1 +2 +3 +echo '### How do we deal with missing $SHELL' +### How do we deal with missing $SHELL + unset SHELL; stdout perl -w $(which parallel) echo ::: 1 2 3 +parallel: Warning: $SHELL not set. Using /bin/sh. +1 +2 +3