From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 20 Jan 2001 22:38:33 +0000 (+0000)
Subject: Signedness nit plus few memcpy/Copy nits.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4459522c48c5d39fc8fe5773dff44282ce5bb339;p=p5sagit%2Fp5-mst-13.2.git

Signedness nit plus few memcpy/Copy nits.

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

diff --git a/sv.c b/sv.c
index 526ed08..cccd2e9 100644
--- a/sv.c
+++ b/sv.c
@@ -6911,7 +6911,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		else
 		    vecsv = (evix ? evix <= svmax : svix < svmax) ?
 			svargs[ewix ? ewix-1 : svix++] : &PL_sv_undef;
-		dotstr = (U8*)SvPVx(vecsv, dotstrlen);
+		dotstr = SvPVx(vecsv, dotstrlen);
 		if (DO_UTF8(vecsv))
 		    is_utf = TRUE;
 	    }
@@ -7405,7 +7405,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	    /* ... right here, because formatting flags should not apply */
 	    SvGROW(sv, SvCUR(sv) + elen + 1);
 	    p = SvEND(sv);
-	    memcpy(p, eptr, elen);
+	    Copy(eptr, p, elen, char);
 	    p += elen;
 	    *p = '\0';
 	    SvCUR(sv) = p - SvPVX(sv);
@@ -7435,7 +7435,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		*p++ = '0';
 	}
 	if (elen) {
-	    memcpy(p, eptr, elen);
+	    Copy(eptr, p, elen, char);
 	    p += elen;
 	}
 	if (gap && left) {
@@ -7444,7 +7444,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	}
 	if (vectorize) {
 	    if (veclen) {
-		memcpy(p, dotstr, dotstrlen);
+		Copy(dotstr, p, dotstrlen, char);
 		p += dotstrlen;
 	    }
 	    else