From: Alan Burlison <Alan.Burlison@uk.sun.com>
Date: Fri, 5 Jan 2001 17:39:16 +0000 (+0000)
Subject: Re: [Fwd: Scoping of %^H still broken in both perl@8269 and perl-5.6.1-TRIAL1]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00122d59e767e3ed1489a9b476892f47cc98e861;p=p5sagit%2Fp5-mst-13.2.git

Re: [Fwd: Scoping of %^H still broken in both perl@8269 and perl-5.6.1-TRIAL1]
Message-ID: <3A5606C4.473D2226@uk.sun.com>

p4raw-id: //depot/perl@8336
---

diff --git a/hv.c b/hv.c
index 304be2b..0e50523 100644
--- a/hv.c
+++ b/hv.c
@@ -1101,7 +1101,7 @@ Perl_newHVhv(pTHX_ HV *ohv)
 	hv_iterinit(ohv);
 	while ((entry = hv_iternext(ohv))) {
 	    hv_store(hv, HeKEY(entry), HeKLEN_UTF8(entry),
-		     SvREFCNT_inc(HeVAL(entry)), HeHASH(entry));
+		     newSVsv(HeVAL(entry)), HeHASH(entry));
 	}
 	HvRITER(ohv) = hv_riter;
 	HvEITER(ohv) = hv_eiter;