This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove flagging OP_READLINE with OPf_SPECIAL
authorRafael Garcia-Suarez <rgs@consttype.org>
Thu, 24 Jul 2014 11:26:10 +0000 (13:26 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 24 Jul 2014 11:26:10 +0000 (13:26 +0200)
This was used to distinguish forms <FILE> from <$file>, but doesn't
seem to be used anymore by anything.

op.h
toke.c

diff --git a/op.h b/op.h
index 9f94caf..c76f37d 100644 (file)
--- 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 (file)
--- 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;
        }