From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 19 Dec 2005 22:38:54 +0000 (+0000)
Subject: Assert that orig_keyword, gv and gvp aren't used before the main
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7183528816da5b6125a0d9a04b7f2e692de6e86;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;