diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-06-06 15:40:02 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-07 09:55:50 -0600 |
| commit | 2114036ce68685bad99e2d43873afa0ff512b0a6 (patch) | |
| tree | 59733dee8ee9ead6a7da1b8fb259b7d42fb0db5f /utf8.c | |
| parent | 2269d15c887e7326906ea6195d5970ac188c3411 (diff) | |
| download | perl-2114036ce68685bad99e2d43873afa0ff512b0a6.tar.gz | |
utf8.c: Add, revise comments
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -998,7 +998,7 @@ Perl_utf8_to_uvuni_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen) } /* Like L</utf8_to_uvuni_buf>(), but should only be called when it is known that - * there are no malformations in the input UTF-8 string C<s>. surrogates, + * there are no malformations in the input UTF-8 string C<s>. Surrogates, * non-character code points, and non-Unicode code points are allowed */ UV @@ -2410,7 +2410,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, } if (!len && *swashp) { - const UV uv2 = swash_fetch(*swashp, tmpbuf, TRUE); + const UV uv2 = swash_fetch(*swashp, tmpbuf, TRUE /* => is utf8 */); if (uv2) { /* It was "normal" (a single character mapping). */ |