From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 2 Dec 2005 17:15:27 +0000 (+0000)
Subject: Address Hugo's comment on Dave's change (26240)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86c51f8bbb17f979b059356f4b0e5f938b96838e;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@26244
---

diff --git a/sv.c b/sv.c
index cf30025..b645426 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++) {