This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Add, revise comments
authorKarl Williamson <public@khwilliamson.com>
Wed, 6 Jun 2012 21:40:02 +0000 (15:40 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 7 Jun 2012 15:55:50 +0000 (09:55 -0600)
utf8.c

diff --git a/utf8.c b/utf8.c
index 018c85a..5359110 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -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). */