This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Fix typo in comment
authorKarl Williamson <khw@cpan.org>
Tue, 29 Apr 2014 03:40:47 +0000 (21:40 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 30 May 2014 22:08:34 +0000 (16:08 -0600)
regcomp.c

index 557b517..16abd8b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3417,9 +3417,9 @@ S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan,
                 else { /* Here is a generic multi-char fold. */
                     U8* multi_end  = s + len;
 
-                    /* Count how many characters in it.  In the case of /aa, no
-                     * folds which contain ASCII code points are allowed, so
-                     * check for those, and skip if found. */
+                    /* Count how many characters are in it.  In the case of
+                     * /aa, no folds which contain ASCII code points are
+                     * allowed, so check for those, and skip if found. */
                     if (OP(scan) != EXACTFA && OP(scan) != EXACTFA_NO_TRIE) {
                         count = utf8_length(s, multi_end);
                         s = multi_end;