[inseparable changes from patch from perl5.003_13 to perl5.003_14]

[p5sagit/p5-mst-13.2.git] / hv.c

diff --git a/hv.c b/hv.c
index ecbd548..806e573 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -752,6 +752,8 @@ I32 shared;
 {
     if (!hent)
        return;
+    if (SvTYPE(HeVAL(hent)) == SVt_PVGV)
+       sub_generation++;               /* May be deletion of method? */
     SvREFCNT_dec(HeVAL(hent));
     if (HeKLEN(hent) == HEf_SVKEY) {
        SvREFCNT_dec(HeKEY_sv(hent));