diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 06:44:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 06:44:27 +0000 |
| commit | fd400ab9029cac48f6054d57b59a99ec1c5d5e1e (patch) | |
| tree | 48c21ddf1f8c4aa55b33343393a2bf6d75524a0c /pp_sys.c | |
| parent | f5cf745e299cac34ef186d2d2d056e876998ccb2 (diff) | |
| download | perl-fd400ab9029cac48f6054d57b59a99ec1c5d5e1e.tar.gz | |
UTF-8 cleanup.
p4raw-id: //depot/perl@8328
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3278,12 +3278,12 @@ PP(pp_fttext) continue; #endif /* utf8 characters don't count as odd */ - if (*s & 0x40) { + if (UTF8_IS_START(*s)) { int ulen = UTF8SKIP(s); if (ulen < len - i) { int j; for (j = 1; j < ulen; j++) { - if ((s[j] & 0xc0) != 0x80) + if (!UTF8_IS_CONTINUATION(s[j])) goto not_utf8; } --ulen; /* loop does extra increment */ |