From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 31 Oct 2006 13:51:38 +0000 (+0000)
Subject: Silence a warning and call readpipe_override() correctly.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b201d7de0ad1e287017c53f92ca98000f131be3;p=p5sagit%2Fp5-mst-13.2.git

Silence a warning and call readpipe_override() correctly.

p4raw-id: //depot/perl@29170
---

diff --git a/toke.c b/toke.c
index dcc0050..bc70534 100644
--- a/toke.c
+++ b/toke.c
@@ -1545,7 +1545,7 @@ S_sublex_start(pTHX)
 	/* readpipe() vas overriden */
 	cSVOPx(cLISTOPx(cUNOPx(PL_lex_op)->op_first)->op_first->op_sibling)->op_sv = tokeq(PL_lex_stuff);
 	yylval.opval = PL_lex_op;
-	PL_lex_op =
+	PL_lex_op = NULL;
 	PL_lex_stuff = NULL;
 	return THING;
     }
@@ -4987,7 +4987,7 @@ Perl_yylex(pTHX)
 	    no_op("Backticks",s);
 	if (!s)
 	    missingterm(NULL);
-	readpipe_override(aTHX);
+	readpipe_override();
 	TERM(sublex_start());
 
     case '\\':
@@ -6306,7 +6306,7 @@ Perl_yylex(pTHX)
 	    s = scan_str(s,!!PL_madskills,FALSE);
 	    if (!s)
 		missingterm(NULL);
-	    readpipe_override(aTHX);
+	    readpipe_override();
 	    TERM(sublex_start());
 
 	case KEY_return: