In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4ba3adde25c4edf2e470f13677632b6d2f9e2fcd?hp=d62b8c6ab04885d004d4a52686f68518d49a3604>
- Log ----------------------------------------------------------------- commit 4ba3adde25c4edf2e470f13677632b6d2f9e2fcd Author: Rafael Garcia-Suarez <[email protected]> Date: Thu Jul 24 13:26:10 2014 +0200 Remove flagging OP_READLINE with OPf_SPECIAL This was used to distinguish forms <FILE> from <$file>, but doesn't seem to be used anymore by anything. ----------------------------------------------------------------------- Summary of changes: op.h | 1 - toke.c | 2 -- 2 files changed, 3 deletions(-) diff --git a/op.h b/op.h index 9f94caf..c76f37d 100644 --- a/op.h +++ b/op.h @@ -114,7 +114,6 @@ Deprecated. Use C<GIMME_V> instead. /* On OP_(ENTER|LEAVE)EVAL, don't clear $@ */ /* On pushre, rx is used as part of split, e.g. split " " */ /* On regcomp, "use re 'eval'" was in scope */ - /* On OP_READLINE, was <$filehandle> */ /* On RV2[ACGHS]V, don't create GV--in defined()*/ /* On OP_DBSTATE, indicates breakpoint diff --git a/toke.c b/toke.c index cb379ef..745a451 100644 --- a/toke.c +++ b/toke.c @@ -9374,8 +9374,6 @@ intro_sym: newUNOP(OP_RV2SV, 0, newGVOP(OP_GV, 0, gv))); } - if (!readline_overriden) - PL_lex_op->op_flags |= OPf_SPECIAL; /* we created the ops in PL_lex_op, so make pl_yylval.ival a null op */ pl_yylval.ival = OP_NULL; } -- Perl5 Master Repository
