Make sure readpipe without argument can be followed by //

p4raw-id: //depot/perl@30748

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index ee7776f4e2..e4a52e3fdf 100644
--- 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);