This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Fix typo in comment
authorKarl Williamson <khw@cpan.org>
Tue, 23 Jan 2018 20:38:04 +0000 (13:38 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 25 Jan 2018 20:53:10 +0000 (13:53 -0700)
regcomp.c

index d0952cb..3447fdb 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -17400,7 +17400,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
                         goto join_posix;
                     }
 #endif
-                    /* (named_class - ANY_OF_ASCII) is 0 or 1. xor'ing with
+                    /* (named_class - ANYOF_ASCII) is 0 or 1. xor'ing with
                      * invert converts that to 1 or 0 */
                     op = ASCII + ((namedclass - ANYOF_ASCII) ^ invert);
                     break;