summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorBen Morrow <ben@morrow.me.uk>2007-10-15 23:56:16 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-10-17 08:08:04 +0000
commita5a709ec819bfe84b1af6f781d5d87ef68e00c3a (patch)
tree0a699c520f7106d3f4e87dd055e5c951806ea347 /hv.c
parentc259ebfbd49165b24578c71d9ad032092dbe5771 (diff)
downloadperl-a5a709ec819bfe84b1af6f781d5d87ef68e00c3a.tar.gz
ex-PVBM and mro interact badly
Message-ID: <20071015215616.GA43800@osiris.mauzo.dyndns.org> p4raw-id: //depot/perl@32119
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index 95df7c8fb4..c8279d87be 100644
--- a/hv.c
+++ b/hv.c
@@ -1450,7 +1450,7 @@ Perl_hv_free_ent(pTHX_ HV *hv, register HE *entry)
if (!entry)
return;
val = HeVAL(entry);
- if (val && isGV(val) && GvCVu(val) && HvNAME_get(hv))
+ if (val && isGV(val) && isGV_with_GP(val) && GvCVu(val) && HvNAME_get(hv))
mro_method_changed_in(hv); /* deletion of method from stash */
SvREFCNT_dec(val);
if (HeKLEN(entry) == HEf_SVKEY) {