Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg)
{
dVAR;
- SV* const lsv = LvTARG(sv);
+ SV *const lsv = mg->mg_obj;
PERL_ARGS_ASSERT_MAGIC_GETPOS;
- PERL_UNUSED_ARG(mg);
if (SvTYPE(lsv) >= SVt_PVMG && SvMAGIC(lsv)) {
MAGIC * const found = mg_find(lsv, PERL_MAGIC_regex_global);
Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
{
dVAR;
- SV* const lsv = LvTARG(sv);
+ SV *const lsv = mg->mg_obj;
SSize_t pos;
STRLEN len;
STRLEN ulen = 0;
MAGIC* found;
PERL_ARGS_ASSERT_MAGIC_SETPOS;
- PERL_UNUSED_ARG(mg);
if (SvTYPE(lsv) >= SVt_PVMG && SvMAGIC(lsv))
found = mg_find(lsv, PERL_MAGIC_regex_global);
the tables stored in the string buffer, beyond SvLEN(). This eliminates the
last place where the core stores data beyond SvLEN().
+=item *
+
+C<pos> in lvalue context now returns a PVMG instead of a PVLV, storing the
+target SV in C<mg_obj>, instead of C<LvTARG()>.
+
=back
=head1 Selected Bug Fixes
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;
}