From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 24 Mar 2007 16:51:13 +0000 (+0000)
Subject: Make sure readpipe without argument can be followed by //
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0858480c587822bc316d0ab82ff83dfc094fbae7;p=p5sagit%2Fp5-mst-13.2.git

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