Address Hugo's comment on Dave's change (26240)

p4raw-id: //depot/perl@26244

1 files changed, 7 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index cf300258ac..b645426dbb 100644
--- a/sv.c
+++ b/sv.c
@@ -8360,8 +8360,13 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	if (vectorize)
 	    argsv = vecsv;
 	else if (!args) {
-	    I32 i = efix ? efix-1 : svix++;
-	    argsv = (i >= 0 && i < svmax) ? svargs[i] : &PL_sv_undef;
+	    if (efix) {
+		const I32 i = efix-1;
+		argsv = (i >= 0 && i < svmax) ? svargs[i] : &PL_sv_undef;
+	    } else {
+		argsv = (svix >= 0 && svix < svmax)
+		    ? svargs[svix++] : &PL_sv_undef;
+	    }
 	}
 
 	switch (c = *q++) {