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

keyword parser of Perl_yylex.

p4raw-id: //depot/perl@26411

1 files changed, 3 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 1b07e56d06..b0c61355d9 100644
--- 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;