From 3c10abe350e3df50f8ef0ac37c9d14175bc899f1 Mon Sep 17 00:00:00 2001 From: Alexander Gough Date: Thu, 19 Oct 2006 14:04:12 +0100 Subject: stab at UNITCHECK blocks Message-ID: <20061019120412.GA12290@the.earth.li> p4raw-id: //depot/perl@29053 --- perly.y | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perly.y') diff --git a/perly.y b/perly.y index 0ae38d55ba..99493cec44 100644 --- a/perly.y +++ b/perly.y @@ -379,7 +379,8 @@ startformsub: /* NULL */ /* start a format subroutine scope */ /* Name of a subroutine - must be a bareword, could be special */ subname : WORD { const char *const name = SvPV_nolen_const(((SVOP*)$1)->op_sv); if (strEQ(name, "BEGIN") || strEQ(name, "END") - || strEQ(name, "INIT") || strEQ(name, "CHECK")) + || strEQ(name, "INIT") || strEQ(name, "CHECK") + || strEQ(name, "UNITCHECK")) CvSPECIAL_on(PL_compcv); $$ = $1; } ; -- cgit v1.2.1