In perl.git, the branch maint-5.22 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6afdf560b1e1b599cea7c0540117728a044bcd25?hp=9d3b1ef1ae2327a7ee711525e99057e4b5925f51>
- Log ----------------------------------------------------------------- commit 6afdf560b1e1b599cea7c0540117728a044bcd25 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Apr 7 07:25:14 2016 -0400 Fix op precedence problem regcomp.c:1190:27: warning: & has lower precedence than ==; == will be evaluated first [-Wparentheses] ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index e7b82a8..9332dea 100644 --- a/regcomp.c +++ b/regcomp.c @@ -1187,7 +1187,7 @@ S_get_ANYOF_cp_list_for_ssc(pTHX_ const RExC_state_t *pRExC_state, * as well. But don't add them if inverting, as when that gets done below, * it would exclude all these characters, including the ones it shouldn't * that were added just above */ - if (ANYOF_FLAGS(node) & (ANYOF_INVERT|ANYOF_MATCHES_ALL_NON_UTF8_NON_ASCII) + if ((ANYOF_FLAGS(node) & (ANYOF_INVERT|ANYOF_MATCHES_ALL_NON_UTF8_NON_ASCII)) == ANYOF_MATCHES_ALL_NON_UTF8_NON_ASCII) { _invlist_union(invlist, PL_UpperLatin1, &invlist); -- Perl5 Master Repository
