diff options
| author | Johan Vromans <jvromans@squirrel.nl> | 2002-06-05 01:01:44 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-05 21:57:09 +0000 |
| commit | d0b50483315d084f7944964e0d4fd6ec51f3e8d4 (patch) | |
| tree | 33d572fe40ef66f10fe078834d1fcfad2d155b7f /doio.c | |
| parent | 25174d85165da6103dc45614139a6bdf2710ae75 (diff) | |
| download | perl-d0b50483315d084f7944964e0d4fd6ec51f3e8d4.tar.gz | |
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
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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)) |