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 /scope.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 'scope.c')
| -rw-r--r-- | scope.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -749,8 +749,9 @@ Perl_leave_scope(pTHX_ I32 base) gv = (GV*)SSPOPPTR; gp_free(gv); GvGP(gv) = (GP*)ptr; - if (GvCVu(gv)) - mro_method_changed_in(GvSTASH(gv)); /* putting a method back into circulation ("local")*/ + /* putting a method back into circulation ("local")*/ + if (GvCVu(gv) && (hv=GvSTASH(gv)) && HvNAME_get(hv)) + mro_method_changed_in(hv); SvREFCNT_dec(gv); break; case SAVEt_FREESV: |