This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Update comments
authorKarl Williamson <khw@cpan.org>
Fri, 20 Mar 2020 13:37:55 +0000 (07:37 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 20 Mar 2020 13:44:31 +0000 (07:44 -0600)
The previous commit expanded the possible things in these variables

regcomp.c

index 5c6ed3f..bc89365 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -18465,7 +18465,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
         }
 #endif
 
-        /* Look at the longest folds first */
+        /* Look at the longest strings first */
         for (cp_count = av_tindex_skip_len_mg(multi_char_matches);
                         cp_count > 0;
                         cp_count--)
@@ -18491,7 +18491,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
         }
 
         /* If the character class contains anything else besides these
-         * multi-character folds, have to include it in recursive parsing */
+         * multi-character strings, have to include it in recursive parsing */
         if (element_count) {
             bool has_l_bracket = orig_parse > RExC_start && *(orig_parse - 1) == '[';