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 (file)
--- 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))