From 02d9e5762b1b8d5260c7279df232ff5c4a47912a Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Fri, 15 Sep 2023 11:40:58 +0100 Subject: [PATCH] Rename 'delims' to 'delimpv' for clarity --- doop.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/doop.c b/doop.c index c60a933b2ff8..c603b5e5c378 100644 --- a/doop.c +++ b/doop.c @@ -662,7 +662,7 @@ Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp) I32 items = sp - mark; STRLEN len; STRLEN delimlen; - const char * delims = SvPV_const(delim, delimlen); + const char * delimpv = SvPV_const(delim, delimlen); PERL_ARGS_ASSERT_DO_JOIN; @@ -708,11 +708,11 @@ Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp) /* Take a copy in case delim SV is a tied SV with a * self-modifying FETCH [GH #21458] */ - delims = savepvn(delims, delimlen); - SAVEFREEPV(delims); + delimpv = savepvn(delimpv, delimlen); + SAVEFREEPV(delimpv); delim_copied = true; } - sv_catpvn_flags(sv,delims,delimlen,delimflag); + sv_catpvn_flags(sv,delimpv,delimlen,delimflag); s = SvPV_const(*mark,len); sv_catpvn_flags(sv,s,len, DO_UTF8(*mark) ? SV_CATUTF8 : SV_CATBYTES);