Fixed bug #45998: --pipe to function broken.

doc/release_new_version

@@ -237,12 +237,16 @@ New in this release:
 
 * <<kontaktet 2015-06-22 Afventer svar fra journal>> GNU Parallel was used (unfortunately with wrong citation) in: TADSim: Discrete Event-Based Performance Prediction for Temperature-Accelerated Dynamics http://vruehle.de/publications/2015c.pdf
 
+* Third-party selling GNU Parallel T-shirts http://www.aliexpress.com/item/2015F-BSO-GNU-LOGO-GNU-PARALLEL-men-s-shirt-sleeve-visual-illusion-error/32464827966.html
+
 * Joys of gnu parallel http://scottolesen.com/index.php/2015/08/26/joys-of-gnu-parallel/
 
 * Crop and resize images with bash and ImageMagick https://www.simonholywell.com/post/2015/08/image-resize-crop-bash-imagemagick/
 
 * Three Ways to Script Processes in Parallel http://www.codeword.xyz/2015/09/02/three-ways-to-script-processes-in-parallel/
 
+* What It Looks Like to Process 3.5 Million Books http://blog.gdeltproject.org/what-it-looks-like-to-process-3-5-million-books/
+
 * L’Exploration De Données Twitter http://blog.inovia-conseil.fr/?p=233
 
 * Bug fixes and man page updates.

src/parallel

@@ -6006,7 +6006,7 @@ sub empty_input_wrapper {
     # Returns:
     #   $wrapped_command = the wrapped command
     my $command = shift;
-    my $script = '$c="'.::perl_quote_scalar($command).'";'.
+    my $script = '$c="'.::perl_quote_scalar($Global::shell." -c ".::shell_quote_scalar($command)).'";'.
 	::spacefree(0,q{
 	    if(sysread(STDIN, $buf, 1)) {
 		open($fh, "|-", $c) || die;

testsuite/tests-to-run/parallel-local-0.3s.sh

@@ -206,6 +206,12 @@ echo '### bug #45939: {2} in {= =} fails'
 parallel echo '{= s/O{2}//=}' ::: OOOK
 parallel echo '{2}-{=1 s/O{2}//=}' ::: OOOK ::: OK
 
+echo '**'
+
+echo '### bug #45998: --pipe to function broken'
+myfunc() { echo $1; cat; }; export -f myfunc; echo OK | parallel --pipe myfunc {#}
+
+
 EOF
 echo '### 1 .par file from --files expected'
 find /tmp{/*,}/*.{par,tms,tmx} 2>/dev/null -mmin -10 | wc -l

testsuite/wanted-results/parallel-local-0.3s

@@ -436,5 +436,12 @@ parallel echo '{= s/O{2}//=}' ::: OOOK
 OK
 parallel echo '{2}-{=1 s/O{2}//=}' ::: OOOK ::: OK
 OK-OK
+echo '**'
+**
+echo '### bug #45998: --pipe to function broken'
+### bug #45998: --pipe to function broken
+myfunc() { echo $1; cat; }; export -f myfunc; echo OK | parallel --pipe myfunc {#}
+1
+OK
 ### 1 .par file from --files expected
 1