This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [Fwd: Scoping of %^H still broken in both perl@8269 and perl-5.6.1-TRIAL1]
authorAlan Burlison <Alan.Burlison@uk.sun.com>
Fri, 5 Jan 2001 17:39:16 +0000 (17:39 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Jan 2001 17:48:32 +0000 (17:48 +0000)
Message-ID: <3A5606C4.473D2226@uk.sun.com>

p4raw-id: //depot/perl@8336

hv.c

diff --git a/hv.c b/hv.c
index 304be2b..0e50523 100644 (file)
--- 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),
        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;
        }
        HvRITER(ohv) = hv_riter;
        HvEITER(ohv) = hv_eiter;