anchors fix

[p5sagit/p5-mst-13.2.git] / doio.c

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