diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-02-02 17:03:33 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-02-02 17:34:24 -0700 |
commit | 33d9abfb25a7c5e9e7ceec9ddc90e83a14466e70 (patch) | |
tree | 74866ed02bfdcd46de2f017c78f508b451f486e5 /utf8.h | |
parent | 56ca34cada940c7f6aae9a59da266e541530041e (diff) | |
download | perl-33d9abfb25a7c5e9e7ceec9ddc90e83a14466e70.tar.gz |
code points above 0x7fff_ffff problematic
The analysis by the submitter was correct.
Diffstat (limited to 'utf8.h')
-rw-r--r-- | utf8.h | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -268,10 +268,9 @@ Perl's extended UTF-8 means we can have start bytes up to FF. #define UTF8_ALLOW_FFFF 0 #define UTF8_ALLOW_SURROGATE 0 -#define UTF8_DISALLOW_ILLEGAL_INTERCHANGE \ - (UTF8_DISALLOW_SUPER|UTF8_DISALLOW_NONCHAR|UTF8_DISALLOW_SURROGATE) +#define UTF8_DISALLOW_ILLEGAL_INTERCHANGE (UTF8_DISALLOW_SUPER|UTF8_DISALLOW_NONCHAR|UTF8_DISALLOW_SURROGATE|UTF8_DISALLOW_FE_FF) #define UTF8_WARN_ILLEGAL_INTERCHANGE \ - (UTF8_WARN_SUPER|UTF8_WARN_NONCHAR|UTF8_WARN_SURROGATE) + (UTF8_WARN_SUPER|UTF8_WARN_NONCHAR|UTF8_WARN_SURROGATE|UTF8_WARN_FE_FF) #define UTF8_ALLOW_ANY \ (~(UTF8_DISALLOW_ILLEGAL_INTERCHANGE|UTF8_WARN_ILLEGAL_INTERCHANGE)) #define UTF8_ALLOW_ANYUV \ |