summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2013-07-01 21:29:14 +0200
committerSteffen Mueller <smueller@cpan.org>2013-07-01 21:29:14 +0200
commit67e67fd72dae78d7c1143948926f8ca44ec57b77 (patch)
treee5f9953c64fc94d5ab75f59a516873093867fd72 /pp.c
parent8d455b9f99c1046e969462419b0eb5b8bf740a47 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 71faec01fc..4dc8f20719 100644
--- a/pp.c
+++ b/pp.c
@@ -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) {