diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-04-25 10:07:47 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-05-20 11:01:50 -0600 |
| commit | d22b930b662c8c65d2e856c42f4a59454444a111 (patch) | |
| tree | 17b047fc198862a36aa4322fcf8b83a0d5d15450 /utf8.h | |
| parent | 25200305a51f99449a69c43f5d279893ab5a0188 (diff) | |
| download | perl-d22b930b662c8c65d2e856c42f4a59454444a111.tar.gz | |
Use new case changing macros
The previous commit added macros to do some case changing. This
commit uses them in the core, where appropriate.
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -504,8 +504,8 @@ Perl's extended UTF-8 means we can have start bytes up to FF. (ANYOF_NONBITMAP(node)) && \ (ANYOF_FLAGS(node) & ANYOF_LOC_NONBITMAP_FOLD) && \ ((end) > (input) + 1) && \ - toLOWER((input)[0]) == 's' && \ - toLOWER((input)[1]) == 's') + toFOLD((input)[0]) == 's' && \ + toFOLD((input)[1]) == 's') #define SHARP_S_SKIP 2 /* If you want to exclude surrogates, and beyond legal Unicode, see the blame |