In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/863b3f1b6dc7598805e0c7a43c3913781f6bc7a1?hp=206e921d4ff6de63d305171b30234e75dc18b395>
- Log ----------------------------------------------------------------- commit 863b3f1b6dc7598805e0c7a43c3913781f6bc7a1 Author: Karl Williamson <[email protected]> Date: Fri Dec 18 22:04:20 2015 -0700 Fix -Dr problems. Commits 108316fb65dc7243a1c5d87b4b29068b7d62d32e and 5e85fd899767ba3003766fc9289c0ee2d8427d10 broke -Dr output in rare cases. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/regcomp.c b/regcomp.c index de9a5b9..f48a8fa 100644 --- a/regcomp.c +++ b/regcomp.c @@ -17352,7 +17352,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ else if (k == ANYOF) { const U8 flags = ANYOF_FLAGS(o); int do_sep = 0; - SV* bitmap_invlist; /* Will hold what the bit map contains */ + SV* bitmap_invlist = NULL; /* Will hold what the bit map contains */ if (OP(o) == ANYOFL) { @@ -17386,7 +17386,8 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ } } - if ((flags + if ( ARG(o) != ANYOF_ONLY_HAS_BITMAP + || (flags & ( ANYOF_MATCHES_ALL_ABOVE_BITMAP |ANYOF_SHARED_d_UPPER_LATIN1_UTF8_STRING_MATCHES_non_d_RUNTIME_USER_PROP |ANYOF_LOC_FOLD))) -- Perl5 Master Repository
