diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2017-10-19 10:48:49 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-05-28 13:43:53 +0100 |
commit | 2324bdb9a8664e4dd5b50ba32a17f9794126d2fd (patch) | |
tree | 80b85093ec20157ecba89ef7746558611eea37a6 /gv.c | |
parent | 0478e945a30d8c53408e52b0e5844af899471b96 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |