In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/77ba44fbee37607ba9e35122619f1137d1d34dae?hp=54b65169bb2056570ff9ca6eddb348cb1c6b34b6>
- Log ----------------------------------------------------------------- commit 77ba44fbee37607ba9e35122619f1137d1d34dae Author: Karl Williamson <[email protected]> Date: Mon Oct 4 23:15:53 2010 -0600 regcomp.c: Fix compiler warning Another compiler gave another warning, that this should fix. The expression should have been cast to a bool all along ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/regcomp.c b/regcomp.c index d6f3523..2068530 100644 --- a/regcomp.c +++ b/regcomp.c @@ -4434,7 +4434,7 @@ Perl_re_compile(pTHX_ SV * const pattern, U32 pm_flags) r->extflags = pm_flags; { bool has_p = ((r->extflags & RXf_PMf_KEEPCOPY) == RXf_PMf_KEEPCOPY); - bool has_charset = (r->extflags & (RXf_PMf_LOCALE|RXf_PMf_UNICODE)); + bool has_charset = cBOOL(r->extflags & (RXf_PMf_LOCALE|RXf_PMf_UNICODE)); /* The caret is output if there are any defaults: if not all the STD * flags are set, or if no character set specifier is needed */ -- Perl5 Master Repository
