This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Clarify comment
authorKarl Williamson <khw@cpan.org>
Wed, 5 Dec 2018 01:22:05 +0000 (18:22 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 7 Dec 2018 01:16:52 +0000 (18:16 -0700)
regcomp.c

index 9dac06c..aa97e9b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -14280,8 +14280,10 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
                         }
 
                         /* Even when folding, we store just the input
-                         * character, as we have an array that finds its fold
-                         * quickly */
+                         * character.  The bottom line reason to do this is
+                         * because the fold for MICRO SIGN requires UTF-8.  But
+                         * there's no real performance penalty for not folding,
+                         * as we have an array that finds any fold quickly. */
                         *(s++) = (char) ender;
                     }
                } /* End of adding current character to the node */