diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-11-15 10:27:02 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-22 13:32:54 -0800 |
commit | 356979f4a7d780fd67a92a9ca6c8659bd12e7168 (patch) | |
tree | 7eb4378e2bae8870a9b01a4d52de33b44f8d065b /pp.c | |
parent | 2950f2a73354102f32ec0556ad8d0ab46743b17a (diff) | |
download | perl-356979f4a7d780fd67a92a9ca6c8659bd12e7168.tar.gz |
pp.c, utf8.c: Convert to use TWO_BYTE_UTF8_TO_UNI
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3828,7 +3828,7 @@ PP(pp_ucfirst) /* Convert the two source bytes to a single Unicode code point * value, change case and save for below */ - chr = UTF8_ACCUMULATE(*s, *(s+1)); + chr = TWO_BYTE_UTF8_TO_UNI(*s, *(s+1)); if (op_type == OP_LCFIRST) { /* lower casing is easy */ U8 lower = toLOWER_LATIN1(chr); STORE_UNI_TO_UTF8_TWO_BYTE(tmpbuf, lower); @@ -4153,7 +4153,7 @@ PP(pp_uc) /* Likewise, if it fits in a byte, its case change is in our * table */ - U8 orig = UTF8_ACCUMULATE(*s, *(s+1)); + U8 orig = TWO_BYTE_UTF8_TO_UNI(*s, *(s+1)); U8 upper = toUPPER_LATIN1_MOD(orig); CAT_TWO_BYTE_UNI_UPPER_MOD(d, orig, upper); s += 2; @@ -4391,7 +4391,7 @@ PP(pp_lc) else if (UTF8_IS_DOWNGRADEABLE_START(*s)) { /* As do the ones in the Latin1 range */ - U8 lower = toLOWER_LATIN1(UTF8_ACCUMULATE(*s, *(s+1))); + U8 lower = toLOWER_LATIN1(TWO_BYTE_UTF8_TO_UNI(*s, *(s+1))); CAT_UNI_TO_UTF8_TWO_BYTE(d, lower); s += 2; } |