return d;
}
if (uv < 0x10000) {
+ if (UNICODE_IS_SURROGATE(uv))
+ Perl_croak(aTHX_ "UTF-16 surrogate 0x%04"UVxf, uv);
*d++ = (( uv >> 12) | 0xe0);
*d++ = (((uv >> 6) & 0x3f) | 0x80);
*d++ = (( uv & 0x3f) | 0x80);
return 0;
}
}
- if *lenp)
+ if (lenp)
*lenp = UNISKIP(uv);
uvuni_to_utf8(ustrp, uv);
return uv;