Change 13721 by jhi@alpha on 2001/12/16 15:34:52
Make surrogates illegal also on EBCDIC.
Affected files ...
.... //depot/perl/utf8.c#130 edit
Differences ...
==== //depot/perl/utf8.c#130 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Sun Dec 16 08:45:06 2001
+++ perl/utf8.c Sun Dec 16 08:45:06 2001
@@ -50,6 +50,8 @@
*d++ = UTF_TO_NATIVE(uv);
return d;
}
+ if (UNICODE_IS_SURROGATE(uv))
+ Perl_croak(aTHX_ "UTF-16 surrogate 0x%04"UVxf, uv);
#if defined(EBCDIC)
else {
STRLEN len = UNISKIP(uv);
@@ -68,8 +70,6 @@
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);
End of Patch.
