Craig A. Berry [Thu, 15 Jun 2006 03:16:34 +0000 (03:16 +0000)]
p4raw-id: //depot/perl@28395
dlen = slen;
New(0, d, dlen+1, U8);
dend = pv_utf8_decompose(s, slen, &d, dlen, SvTRUE(compat));
- sv_setpvn(dst, d, dend - d);
+ sv_setpvn(dst, (char *)d, dend - d);
SvUTF8_on(dst);
Safefree(d);
RETVAL = dst;