This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add comment
[perl5.git] / regcomp.c
index 59f8bcf..ec4c792 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8321,6 +8321,9 @@ parseit:
                        (value=='p' ? '+' : '!'), (int)n, RExC_parse);
                }
                RExC_parse = e + 1;
+
+               /* The \p could match something in the Latin1 range, hence
+                * something that isn't utf8 */
                ANYOF_FLAGS(ret) |= ANYOF_NONBITMAP;
                namedclass = ANYOF_MAX;  /* no official name, but it's named */
                }