From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 21 Feb 2002 15:22:22 +0000 (+0100)
Subject: No OPf_SPECIAL on OP_ENTERSUB when readline() is overriden
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c6fadd6d30841458baf0284bcb3c3fb96d831c4;p=p5sagit%2Fp5-mst-13.2.git

No OPf_SPECIAL on OP_ENTERSUB when readline() is overriden
   Message-Id: <20020221152222.A15095@rafael>

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

diff --git a/op.h b/op.h
index 1b5d828..604eaa3 100644
--- a/op.h
+++ b/op.h
@@ -104,6 +104,7 @@ Deprecated.  Use C<GIMME_V> instead.
 				/*  On OP_ENTERITER, loop var is per-thread */
 				/*  On pushre, re is /\s+/ imp. by split " " */
 				/*  On regcomp, "use re 'eval'" was in scope */
+				/*  On OP_READLINE, was <$filehandle> */
 
 /* old names; don't use in new code, but don't break them, either */
 #define OPf_LIST	OPf_WANT_LIST
diff --git a/toke.c b/toke.c
index a9a2821..9440260 100644
--- a/toke.c
+++ b/toke.c
@@ -6744,7 +6744,8 @@ intro_sym:
 			    newUNOP(OP_RV2SV, 0,
 				newGVOP(OP_GV, 0, gv)));
 	    }
-	    PL_lex_op->op_flags |= OPf_SPECIAL;
+	    if (!readline_overriden)
+		PL_lex_op->op_flags |= OPf_SPECIAL;
 	    /* we created the ops in PL_lex_op, so make yylval.ival a null op */
 	    yylval.ival = OP_NULL;
 	}