Re: [PATCH hv.c] newHVhv shouldn't reset xhv_max so often

Message-ID: <20010804165635.E526@lustre.dyn.wiw.org>

p4raw-id: //depot/perl@11571

diff --git a/hv.c b/hv.c
index 2962de3..0f57afb 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1209,7 +1209,7 @@ Perl_newHVhv(pTHX_ HV *ohv)
                STRLEN len = HeKLEN_UTF8(oent);
 
                ent = new_HE();
-               HeVAL(ent)     = SvREFCNT_inc(HeVAL(oent));
+               HeVAL(ent)     = newSVsv(HeVAL(oent));
                HeKEY_hek(ent) = shared ? share_hek(key, len, hash)
                                        :  save_hek(key, len, hash);
                if (prev)