Final version object core patch?

Message-ID: <411048BD.3080700@rowman.com>

p4raw-id: //depot/perl@23190

1 files changed, 12 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 2cdebd66dc..e71c03c68b 100644
--- a/sv.c
+++ b/sv.c
@@ -9373,6 +9373,18 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		vecsv = svargs[efix ? efix-1 : svix++];
 		vecstr = (U8*)SvPVx(vecsv,veclen);
 		vec_utf8 = DO_UTF8(vecsv);
+		/* if this is a version object, we need to return the
+		 * stringified representation (which the SvPVX has
+		 * already done for us), but not vectorize the args
+		 */
+		if ( *q == 'd' && sv_derived_from(vecsv,"version") )
+		{
+			q++; /* skip past the rest of the %vd format */
+			eptr = vecstr;
+			elen = strlen(eptr);
+			vectorize=FALSE;
+			goto string;
+		}
 	    }
 	    else {
 		vecstr = (U8*)"";