add support for assertions. Updated form of:

Subject: Re: Did the assertion patch/feature submission get overlooked?
Message-ID: <3DE8F439.50402@yahoo.com>

p4raw-id: //depot/perl@18727

1 files changed, 2 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 74499ab910..bfe282c7d9 100644
--- a/toke.c
+++ b/toke.c
@@ -3025,6 +3025,8 @@ Perl_yylex(pTHX)
 			CvLOCKED_on(PL_compcv);
 		    else if (!PL_in_my && len == 6 && strnEQ(s, "method", len))
 			CvMETHOD_on(PL_compcv);
+		    else if (!PL_in_my && len == 9 && strnEQ(s, "assertion", len))
+		        CvASSERTION_on(PL_compcv);
 #ifdef USE_ITHREADS
 		    else if (PL_in_my == KEY_our && len == 6 &&
 			     strnEQ(s, "unique", len))