Fix for [perl #22759 insufficient format string checking];

using ewix makes no sense, assuming evix was intended,
no old tests fail; add the test case.

p4raw-id: //depot/perl@19931

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index b6d09202b0..69fbbaacbe 100644
--- a/sv.c
+++ b/sv.c
@@ -8668,7 +8668,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		    vecsv = va_arg(*args, SV*);
 		else
 		    vecsv = (evix ? evix <= svmax : svix < svmax) ?
-			svargs[ewix ? ewix-1 : svix++] : &PL_sv_undef;
+			svargs[evix ? evix-1 : svix++] : &PL_sv_undef;
 		dotstr = SvPVx(vecsv, dotstrlen);
 		if (DO_UTF8(vecsv))
 		    is_utf8 = TRUE;