From 59c3c222a42121edb1b3cdd9c71d3c878e3ddb18 Mon Sep 17 00:00:00 2001 From: Nicolas R Date: Mon, 25 Sep 2017 13:37:06 -0500 Subject: Use SvLEN_set/SvCUR_set in a few extra locations SvLEN was set without using the generic macro SvLEN_set. Use it in three extra locations, and also use SvCUR_set instead of SvCUR. --- universal.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'universal.c') diff --git a/universal.c b/universal.c index 65477fb775..2262939b8d 100644 --- a/universal.c +++ b/universal.c @@ -225,8 +225,8 @@ Perl_sv_does_sv(pTHX_ SV *sv, SV *namesv, U32 flags) /* create a PV with value "isa", but with a special address * so that perl knows we're really doing "DOES" instead */ methodname = newSV_type(SVt_PV); - SvLEN(methodname) = 0; - SvCUR(methodname) = strlen(PL_isa_DOES); + SvLEN_set(methodname, 0); + SvCUR_set(methodname, strlen(PL_isa_DOES)); SvPVX(methodname) = (char *)PL_isa_DOES; /* discard 'const' qualifier */ SvPOK_on(methodname); sv_2mortal(methodname); -- cgit v1.2.1