Eliminate some unnecessary strlen()s

p4raw-id: //depot/perl@26050

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 3e7496954f..4b83f135e9 100644
--- a/sv.c
+++ b/sv.c
@@ -8720,7 +8720,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		{
 			q++; /* skip past the rest of the %vd format */
 			eptr = (const char *) vecstr;
-			elen = strlen(eptr);
+			elen = veclen;
 			vectorize=FALSE;
 			goto string;
 		}