This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp.c: Add comment
authorKarl Williamson <khw@cpan.org>
Fri, 13 Jun 2014 17:08:28 +0000 (11:08 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Jun 2014 17:26:23 +0000 (11:26 -0600)
pp.c

diff --git a/pp.c b/pp.c
index d4002ac..9d19c91 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4195,7 +4195,8 @@ PP(pp_fc)
     const U8 *send;
     U8 *d;
     U8 tmpbuf[UTF8_MAXBYTES_CASE + 1];
-    const bool full_folding = TRUE;
+    const bool full_folding = TRUE; /* This variable is here so we can easily
+                                       move to more generality later */
     const U8 flags = ( full_folding      ? FOLD_FLAGS_FULL   : 0 )
 #ifdef USE_LOCALE_CTYPE
                    | ( IN_LC_RUNTIME(LC_CTYPE) ? FOLD_FLAGS_LOCALE : 0 )