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 --- madly.y | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'madly.y') diff --git a/madly.y b/madly.y index 0643ff5c95..86a4c5e5f2 100644 --- a/madly.y +++ b/madly.y @@ -498,7 +498,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