Assert that orig_keyword, gv and gvp aren't used before the main

keyword parser of Perl_yylex.

p4raw-id: //depot/perl@26411

diff --git a/toke.c b/toke.c
index 1b07e56..b0c6135 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4086,6 +4086,9 @@ Perl_yylex(pTHX)
     case 'z': case 'Z':
 
       keylookup: {
+       assert (orig_keyword == 0);
+       assert (gv == 0);
+       assert (gvp == 0);
        orig_keyword = 0;
        gv = Nullgv;
        gvp = 0;