Address the second half of

Subject: [ID 20020604.006] Pipe opens do not support I/O layers
Message-Id: <20020604210144.3A87A8B6B3@phoenix.squirrel.nl>

so that multiarg piped opens only accept optional whitespace
after the "|-".  If and when perlio discipline awareness added
to |-, the now added code branch will grow.

No test case because hard to think of anything even remotely
portable.

p4raw-id: //depot/perl@17023

1 files changed, 4 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index 95ae169b48..decd1885a4 100644
--- a/doio.c
+++ b/doio.c
@@ -254,6 +254,10 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		name = type;
 		len = tend-type;
 	    }
+	    else {
+	      if (*type)
+		  goto unknown_desr;
+	    }
 	    if (*name == '\0') {
 		/* command is missing 19990114 */
 		if (ckWARN(WARN_PIPE))