In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/efa6797da1bf57c7a2fad1717a4da6bdb37e1157?hp=749e076fceedeb708a624933726e7989f2302f6a>
- Log ----------------------------------------------------------------- commit efa6797da1bf57c7a2fad1717a4da6bdb37e1157 Author: Karl Williamson <[email protected]> Date: Tue Dec 31 08:06:17 2013 -0700 regcomp.c: Add comments ----------------------------------------------------------------------- Summary of changes: regcomp.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/regcomp.c b/regcomp.c index 0fa7b83..ec9c6ed 100644 --- a/regcomp.c +++ b/regcomp.c @@ -4021,6 +4021,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, else if (flags & SCF_DO_STCLASS_OR) { ssc_add_cp(data->start_class, uc); ssc_and(pRExC_state, data->start_class, and_withp); + + /* See commit msg 749e076fceedeb708a624933726e7989f2302f6a */ ANYOF_FLAGS(data->start_class) &= ~ANYOF_EMPTY_STRING; } flags &= ~SCF_DO_STCLASS; @@ -4141,6 +4143,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, else if (flags & SCF_DO_STCLASS_OR) { ssc_union(data->start_class, EXACTF_invlist, FALSE); ssc_and(pRExC_state, data->start_class, and_withp); + + /* See commit msg 749e076fceedeb708a624933726e7989f2302f6a */ ANYOF_FLAGS(data->start_class) &= ~ANYOF_EMPTY_STRING; } flags &= ~SCF_DO_STCLASS; @@ -4547,6 +4551,9 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n", PL_XPosix_ptrs[_CC_VERTSPACE], FALSE); ssc_and(pRExC_state, data->start_class, and_withp); + + /* See commit msg for + * 749e076fceedeb708a624933726e7989f2302f6a */ ANYOF_FLAGS(data->start_class) &= ~ANYOF_EMPTY_STRING; } flags &= ~SCF_DO_STCLASS; @@ -4573,6 +4580,7 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n", U8 classnum; U8 namedclass; + /* See commit msg 749e076fceedeb708a624933726e7989f2302f6a */ ANYOF_FLAGS(data->start_class) &= ~ANYOF_EMPTY_STRING; /* Some of the logic below assumes that switching -- Perl5 Master Repository
