Make sure readpipe without argument can be followed by //

p4raw-id: //depot/perl@30748

diff --git a/toke.c b/toke.c
index ee7776f..e4a52e3 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6417,7 +6417,7 @@ Perl_yylex(pTHX)
 
        case KEY_readpipe:
            set_csh();
-           UNI(OP_BACKTICK);
+           UNIDOR(OP_BACKTICK);
 
        case KEY_rewinddir:
            UNI(OP_REWINDDIR);