diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-18 09:35:52 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:55 -0700 |
| commit | 66cbab2c91fca8c9abc65a7231a053898208efe3 (patch) | |
| tree | cb9e838d32b251f9f52082d29bb7009f074d192f /utf8.h | |
| parent | e439cacbc5a93fb9e6c524e31ac41772af51dfa0 (diff) | |
| download | perl-66cbab2c91fca8c9abc65a7231a053898208efe3.tar.gz | |
Add :not_characters parameter to 'use locale'
This adds the parameter handling, tests, and documentation for this new
feature which allows locale and Unicode to play well with each other.
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -251,8 +251,8 @@ Perl's extended UTF-8 means we can have start bytes up to FF. #define IN_BYTES (CopHINTS_get(PL_curcop) & HINT_BYTES) #define DO_UTF8(sv) (SvUTF8(sv) && !IN_BYTES) -#define IN_UNI_8_BIT ( (CopHINTS_get(PL_curcop) & HINT_UNI_8_BIT) \ - && ! IN_LOCALE_RUNTIME && ! IN_BYTES) +#define IN_UNI_8_BIT \ + (CopHINTS_get(PL_curcop) & (HINT_UNI_8_BIT|HINT_LOCALE_NOT_CHARS)) #define UTF8_ALLOW_EMPTY 0x0001 /* Allow a zero length string */ |