diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-20 22:38:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-20 22:38:33 +0000 |
| commit | e87e56b7fa43aec1a71f91bc678a5766a8ffa6b3 (patch) | |
| tree | b8cde28d06c18078a5da731aaa63a31eaa27df46 /sv.c | |
| parent | 09c70b438e667321033aba805e769bb317ded049 (diff) | |
| download | perl-e87e56b7fa43aec1a71f91bc678a5766a8ffa6b3.tar.gz | |
Signedness nit plus few memcpy/Copy nits.
p4raw-id: //depot/perl@8491
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |