diff options
| author | Brandon Black <blblack@gmail.com> | 2007-04-29 12:27:03 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-30 09:22:58 +0000 |
| commit | dd69841bebe1fc7f7a6b248576221520a0418d52 (patch) | |
| tree | 03f70519210b8c576d1dde888623afef3e9882ba /perl.c | |
| parent | 49d7dfbcef7527d25e8c34643f831ef2416923a3 (diff) | |
| download | perl-dd69841bebe1fc7f7a6b248576221520a0418d52.tar.gz | |
Re: mro status, etc
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60704291527y1b39be37l221ef66e4c828f66@mail.gmail.com>
p4raw-id: //depot/perl@31107
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1074,6 +1074,8 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_errors); PL_errors = NULL; + SvREFCNT_dec(PL_isarev); + FREETMPS; if (destruct_level >= 2 && ckWARN_d(WARN_INTERNAL)) { if (PL_scopestack_ix != 0) @@ -2154,6 +2156,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) CvPADLIST(PL_compcv) = pad_new(0); + PL_isarev = newHV(); + boot_core_PerlIO(); boot_core_UNIVERSAL(); boot_core_xsutils(); |