summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2017-10-19 10:48:49 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2019-05-28 13:43:53 +0100
commit2324bdb9a8664e4dd5b50ba32a17f9794126d2fd (patch)
tree80b85093ec20157ecba89ef7746558611eea37a6 /gv.c
parent0478e945a30d8c53408e52b0e5844af899471b96 (diff)
downloadperl-2324bdb9a8664e4dd5b50ba32a17f9794126d2fd.tar.gz
Remove remaining assignments to SvCUR and SvLEN in core
Also make the macros non-lvalues under PERL_CORE
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/gv.c b/gv.c
index 3b8759e88a..46a32dcc20 100644
--- a/gv.c
+++ b/gv.c
@@ -1266,7 +1266,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags)
if (SvUTF8(cv))
sv_utf8_upgrade_flags_grow(tmpsv, 0, CvPROTOLEN(cv) + 2);
ulen = SvCUR(tmpsv);
- SvCUR(tmpsv)++; /* include null in string */
+ SvCUR_set(tmpsv, SvCUR(tmpsv) + 1); /* include null in string */
sv_catpvn_flags(
tmpsv, proto, CvPROTOLEN(cv), SV_CATBYTES*!SvUTF8(cv)
);
@@ -1275,7 +1275,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags)
SvTEMP_off(tmpsv);
SvREFCNT_dec_NN(tmpsv);
SvLEN_set(cv, SvCUR(cv) + 1);
- SvCUR(cv) = ulen;
+ SvCUR_set(cv, ulen);
}
else {
sv_setpvn((SV *)cv, name, len);