Stop setting PL_lex_expect

As of two commits ago, nothing uses its value any more.

diff --git a/sv.c b/sv.c
index e5e1620..761addb 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12364,7 +12364,6 @@ Perl_parser_dup(pTHX_ const yy_parser *const proto, CLONE_PARAMS *const param)
                    (proto->lex_casemods < 12 ? 12 : proto->lex_casemods));
     parser->lex_defer  = proto->lex_defer;
     parser->lex_dojoin = proto->lex_dojoin;
-    parser->lex_expect = proto->lex_expect;
     parser->lex_formbrack = proto->lex_formbrack;
     parser->lex_inpat  = proto->lex_inpat;
     parser->lex_inwhat = proto->lex_inwhat;

diff --git a/toke.c b/toke.c
index d1325b3..398bd7b 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1909,7 +1909,6 @@ S_force_next(pTHX_ I32 type)
     PL_nexttoke++;
     if (PL_lex_state != LEX_KNOWNEXT) {
        PL_lex_defer = PL_lex_state;
-       PL_lex_expect = PL_expect;
        PL_lex_state = LEX_KNOWNEXT;
     }
 }