This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
signedness nit in #23190
authorCraig A. Berry <craigberry@mac.com>
Thu, 5 Aug 2004 13:10:55 +0000 (08:10 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 6 Aug 2004 06:53:08 +0000 (06:53 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <4112782F.7040302@mac.com>

p4raw-id: //depot/perl@23197

sv.c

diff --git a/sv.c b/sv.c
index bdcd4af..bdc6cbb 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9380,7 +9380,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                if ( *q == 'd' && sv_derived_from(vecsv,"version") )
                {
                        q++; /* skip past the rest of the %vd format */
-                       eptr = vecstr;
+                       eptr = (char *) vecstr;
                        elen = strlen(eptr);
                        vectorize=FALSE;
                        goto string;