pos in lvalue context now returns a PVMG instead of a PVLV.

Store the target SV in mg_obj, instead of LvTARG(). This slightly reduces both
code complexity and runtime memory use.

1 files changed, 2 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index 385f1beef1..f87e0dd3a4 100644
--- a/pp.c
+++ b/pp.c
@@ -361,10 +361,8 @@ PP(pp_pos)
     dVAR; dSP; dPOPss;
 
     if (PL_op->op_flags & OPf_MOD || LVRET) {
-	SV * const ret = sv_2mortal(newSV_type(SVt_PVLV));  /* Not TARG RT#67838 */
-	sv_magic(ret, NULL, PERL_MAGIC_pos, NULL, 0);
-	LvTYPE(ret) = '.';
-	LvTARG(ret) = SvREFCNT_inc_simple(sv);
+	SV * const ret = sv_2mortal(newSV_type(SVt_PVMG));  /* Not TARG RT#67838 */
+	sv_magic(ret, sv, PERL_MAGIC_pos, NULL, 0);
 	PUSHs(ret);    /* no SvSETMAGIC */
 	RETURN;
     }