From: Johan Vromans <jvromans@squirrel.nl>
Date: Tue, 4 Jun 2002 23:01:44 +0000 (+0200)
Subject: Address the second half of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ba2be714aafa517e32f041e6a3953aaec50b931;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/doio.c b/doio.c
index 95ae169..decd188 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))