diff options
| author | Alexander Gough <alex-p5p@earth.li> | 2006-10-19 14:04:12 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-19 15:54:15 +0000 |
| commit | 3c10abe350e3df50f8ef0ac37c9d14175bc899f1 (patch) | |
| tree | 306a14e8bd8d1b6ebe927f3a074d367f70729e50 /madly.y | |
| parent | f0ac4cdb6e00777d18589f0326b32a86989110af (diff) | |
| download | perl-3c10abe350e3df50f8ef0ac37c9d14175bc899f1.tar.gz | |
stab at UNITCHECK blocks
Message-ID: <20061019120412.GA12290@the.earth.li>
p4raw-id: //depot/perl@29053
Diffstat (limited to 'madly.y')
| -rw-r--r-- | madly.y | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } ; |