This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
signedness nit in Unicode::Normalize::decompose
authorCraig A. Berry <craigberry@mac.com>
Thu, 15 Jun 2006 03:16:34 +0000 (03:16 +0000)
committerCraig A. Berry <craigberry@mac.com>
Thu, 15 Jun 2006 03:16:34 +0000 (03:16 +0000)
p4raw-id: //depot/perl@28395

ext/Unicode/Normalize/Normalize.xs

index e48ead9..3dea0f4 100644 (file)
@@ -465,7 +465,7 @@ decompose(src, compat = &PL_sv_no)
     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;