diff options
author | Steffen Mueller <smueller@cpan.org> | 2013-07-01 21:29:14 +0200 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2013-07-01 21:29:14 +0200 |
commit | 67e67fd72dae78d7c1143948926f8ca44ec57b77 (patch) | |
tree | e5f9953c64fc94d5ab75f59a516873093867fd72 /pp.c | |
parent | 8d455b9f99c1046e969462419b0eb5b8bf740a47 (diff) | |
download | perl-67e67fd72dae78d7c1143948926f8ca44ec57b77.tar.gz |
Fix to make 8d455b9f99c1046e969462419b0eb5b8bf740a47 not a lie
Previous commit 8d455b9f99c1046e969462419b0eb5b8bf740a47 was a partial
lie. This commit fixes it up not to be a lie and to avoid mortalizing
the HV.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4829,9 +4829,9 @@ PP(pp_anonlist) PP(pp_anonhash) { dVAR; dSP; dMARK; dORIGMARK; - HV* const hv = (HV *)sv_2mortal((SV *)newHV()); + HV* const hv = newHV(); SV* const retval = sv_2mortal( PL_op->op_flags & OPf_SPECIAL - ? newRV_inc(MUTABLE_SV(hv)) + ? newRV_noinc(MUTABLE_SV(hv)) : MUTABLE_SV(hv) ); while (MARK < SP) { |