This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add comment
authorKarl Williamson <public@khwilliamson.com>
Sat, 18 May 2013 19:55:50 +0000 (13:55 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 17:01:53 +0000 (11:01 -0600)
regcomp.c

index d48510c..05d15a4 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11083,7 +11083,7 @@ tryagain:
                     *(s++) = (char) ender;
                     maybe_exact &= ! IS_IN_SOME_FOLD_L1(ender);
                 }
-                else {
+                else {  /* UTF */
 
                     /* Prime the casefolded buffer.  Locale rules, which apply
                      * only to code points < 256, aren't known until execution,