diff options
| author | Alan Burlison <Alan.Burlison@uk.sun.com> | 2001-01-05 17:39:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 17:48:32 +0000 |
| commit | 00122d59e767e3ed1489a9b476892f47cc98e861 (patch) | |
| tree | 22ab17e180c42de708c1d140958fadaa0ad55435 /hv.c | |
| parent | ea071ac9677922d939070e337e5901cb40df3c31 (diff) | |
| download | perl-00122d59e767e3ed1489a9b476892f47cc98e861.tar.gz | |
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
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |