*d++ = UTF_TO_NATIVE(uv);
return d;
}
-#if defined(EBCDIC) || 1 /* always for testing */
+#if defined(EBCDIC)
else {
STRLEN len = UNISKIP(uv);
U8 *p = d+len-1;
HE *he;
uv = utf8_to_uvchr(p, 0);
- if (uv <= 0xff)
- uv = NATIVE_TO_UTF(uv);
if ((hv = get_hv(special, FALSE)) &&
(keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%04"UVXf, uv))) &&
if (*lenp > 1 || UNI_IS_INVARIANT(c))
Copy(s, ustrp, *lenp, U8);
else {
- c = UTF_TO_NATIVE(c);
/* something in the 0x80..0xFF range */
ustrp[0] = UTF8_EIGHT_BIT_HI(c);
ustrp[1] = UTF8_EIGHT_BIT_LO(c);
ulen2 = 1;
if (ulen1 != ulen2
|| (ulen1 == 1 && PL_fold[ca] != PL_fold[cb])
- || memNE(tmpbuf1, tmpbuf2, ulen1))
+ || memNE((char *)tmpbuf1, (char *)tmpbuf2, ulen1))
return 1;
}
a += la;