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 /pp_ctl.c | |
| 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 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2914,9 +2914,13 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) SAVESPTR(PL_curstash); PL_curstash = CopSTASH(PL_curcop); } + /* XXX:ajgo do we really need to alloc an AV for begin/checkunit */ SAVESPTR(PL_beginav); PL_beginav = newAV(); SAVEFREESV(PL_beginav); + SAVESPTR(PL_unitcheckav); + PL_unitcheckav = newAV(); + SAVEFREESV(PL_unitcheckav); SAVEI32(PL_error_count); #ifdef PERL_MAD @@ -3010,6 +3014,9 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) } } + if (PL_unitcheckav) + call_list(PL_scopestack_ix, PL_unitcheckav); + /* compiled okay, so do it */ CvDEPTH(PL_compcv) = 1; |