This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add comment
authorKarl Williamson <khw@cpan.org>
Sun, 29 Mar 2020 16:22:09 +0000 (10:22 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 29 Mar 2020 16:26:24 +0000 (10:26 -0600)
At the request of @hvds

regcomp.c

index bc89365..f251ccc 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5966,7 +5966,10 @@ Perl_re_printf( aTHX_  "LHS=%" UVuf " RHS=%" UVuf "\n",
                                                           (regnode_charclass *) scan);
                    break;
 
-                case NANYOFM:
+                case NANYOFM: /* NANYOFM already contains the inversion of the
+                                 input ANYOF data, so, unlike things like
+                                 NPOSIXA, don't change 'invert' to TRUE */
+                    /* FALLTHROUGH */
                 case ANYOFM:
                   {
                     SV* cp_list = get_ANYOFM_contents(scan);