diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-06 06:32:35 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-06 06:32:35 +0000 |
| commit | 9856d93935533919f70e55e417b4059f09d09a01 (patch) | |
| tree | 6941b33a31135783651228039a2971a0b11fdf86 /doio.c | |
| parent | eec5b60da69f144765b0e2010486d337f50e5862 (diff) | |
| parent | 7ca617d028f5e0c89409fa5fdbd4c8507a90e2b1 (diff) | |
| download | perl-9856d93935533919f70e55e417b4059f09d09a01.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@17029
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)) |