summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-12-18 11:46:37 -0700
committerKarl Williamson <public@khwilliamson.com>2011-12-18 12:09:00 -0700
commita6d5f32180c6c2bee892290361a69780806e6339 (patch)
tree39e6e8ed2e5db159a2cbaa93898b8f02cb216b08 /utf8.c
parentba9114af805c1f409d573d03e17e4b53cd257ebc (diff)
downloadperl-a6d5f32180c6c2bee892290361a69780806e6339.tar.gz
utf8.c: white-space, comment clarification only
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c15
1 files changed, 7 insertions, 8 deletions
diff --git a/utf8.c b/utf8.c
index 5444e3dece..e98538636c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -3879,12 +3879,12 @@ Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, register UV l1, bool u1
if (flags & FOLDEQ_S1_ALREADY_FOLDED) {
f1 = (U8 *) p1;
n1 = UTF8SKIP(f1);
-
- /* If in locale matching, we use two sets of rules, depending on if
- * the code point is above or below 255. Here, we test for and
- * handle locale rules */
}
+
else {
+ /* If in locale matching, we use two sets of rules, depending
+ * on if the code point is above or below 255. Here, we test
+ * for and handle locale rules */
if ((flags & FOLDEQ_UTF8_LOCALE)
&& (! u1 || UTF8_IS_INVARIANT(*p1)
|| UTF8_IS_DOWNGRADEABLE_START(*p1)))
@@ -3906,9 +3906,8 @@ Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, register UV l1, bool u1
}
n1 = 1;
}
- else if (isASCII(*p1)) { /* Note, that here won't be
- both ASCII and using locale
- rules */
+ else if (isASCII(*p1)) { /* Note, that here won't be both
+ ASCII and using locale rules */
/* If trying to mix non- with ASCII, and not supposed to,
* fail */
@@ -3987,7 +3986,7 @@ Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, register UV l1, bool u1
if (fold_length != UTF8SKIP(f2)
|| (fold_length == 1 && *f1 != *f2) /* Short circuit memNE
function call for single
- character */
+ byte */
|| memNE((char*)f1, (char*)f2, fold_length))
{
return 0; /* mismatch */