From eb3b6fb00efa19e4e7599df8a08216c1bdc21d91 Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Thu, 22 Nov 2012 23:43:49 +0100
Subject: [PATCH] parallel --shebang-warp --pipe works. With test.

---
 src/parallel                               | 18 +++++++++++-------
 testsuite/tests-to-run/parallel-local21.sh |  4 ++--
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/src/parallel b/src/parallel
index 7b09d35b..42bb1594 100755
--- a/src/parallel
+++ b/src/parallel
@@ -574,6 +574,7 @@ sub options_hash {
 	 "wait" => \$::opt_wait,
 	 # Shebang #!/usr/bin/parallel --shebang
 	 "shebang|hashbang" => \$::opt_shebang,
+	 "--internal-pipe-means-argfiles" => \$::opt_internal_pipe_means_argfiles,
 	 "Y" => \$::opt_retired,
          "skip-first-line" => \$::opt_skip_first_line,
 	 "header=s" => \$::opt_header,
@@ -606,7 +607,7 @@ sub get_options_from_array {
 sub parse_options {
     # Returns: N/A
     # Defaults:
-    $Global::version = 20121122;
+    $Global::version = 20121123;
     $Global::progname = 'parallel';
     $Global::infinity = 2**31;
     $Global::debug = 0;
@@ -941,7 +942,7 @@ sub read_options {
 	    my $parser = shift @ARGV;
 	    my $scriptfile = shell_quote_scalar(shift @ARGV);
 	    # exec myself to split $ARGV[0] into separate fields
-	    exec "$0 $parser $scriptfile ::: @ARGV";
+	    exec "$0 --internal-pipe-means-argfiles $parser $scriptfile ::: @ARGV";
 	}
     }
 
@@ -1027,7 +1028,14 @@ sub read_args_from_command_line {
 		    push @group, $arg;
 		}
 	    }
-	    if($group eq $Global::arg_sep) {
+
+		if($group eq $Global::arg_file_sep
+		    or ($::opt_internal_pipe_means_argfiles and $::opt_pipe)
+		) {
+		# Group of file names on the command line.
+		# Append args into -a
+		push @::opt_a, @group;
+	    } elsif($group eq $Global::arg_sep) {
 		# Group of arguments on the command line.
 		# Put them into a file.
 		# Create argfile
@@ -1038,10 +1046,6 @@ sub read_args_from_command_line {
 		seek $outfh, 0, 0;
 		# Append filehandle to -a
 		push @::opt_a, $outfh;
-	    } elsif($group eq $Global::arg_file_sep) {
-		# Group of file names on the command line.
-		# Append args into -a
-		push @::opt_a, @group;
 	    } else {
 		::die_bug("Unknown command line group: $group");
 	    }
diff --git a/testsuite/tests-to-run/parallel-local21.sh b/testsuite/tests-to-run/parallel-local21.sh
index 61b8df22..eef82bb0 100644
--- a/testsuite/tests-to-run/parallel-local21.sh
+++ b/testsuite/tests-to-run/parallel-local21.sh
@@ -47,9 +47,9 @@ print "Shebang from perl with args @ARGV\n";
 EOF
 
 chmod 755 /tmp/pipe--shebang-wrap
-# Suboptimal
+echo Suboptimal
 /tmp/pipe--shebang-wrap :::: /tmp/in12 /tmp/in45
-# Optimal
+echo Optimal
 /tmp/pipe--shebang-wrap /tmp/in12 /tmp/in45
 echo "### Same as"
 parallel --pipe /usr/bin/perl\ -p /tmp/pipe--shebang-wrap :::: /tmp/in12 /tmp/in45