In perl.git, the branch smoke-me/khw-locale has been updated <https://perl5.git.perl.org/perl.git/commitdiff/ada53853270d7c01061eb3c3bea26a5ae1a3846f?hp=c9f56f8fae27f47a70456ab3439852240b1e5850>
- Log ----------------------------------------------------------------- commit ada53853270d7c01061eb3c3bea26a5ae1a3846f Author: Karl Williamson <[email protected]> Date: Wed Apr 3 14:45:24 2019 -0600 f ----------------------------------------------------------------------- Summary of changes: regcomp.c | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/regcomp.c b/regcomp.c index 08535c0f1f..44fada95a2 100644 --- a/regcomp.c +++ b/regcomp.c @@ -14466,18 +14466,16 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) has_micro_sign = TRUE; } - *(s++) = (char) (DEPENDS_SEMANTICS) - ? toFOLD(ender) - - /* Under /u, the fold of any - * character in the 0-255 range - * happens to be its lowercase - * equivalent, except for LATIN SMALL - * LETTER SHARP S, which was handled - * above, and the MICRO SIGN, whose - * fold requires UTF-8 to represent. - * */ - : toLOWER_L1(ender); + *(s++) = (DEPENDS_SEMANTICS) + ? (char) toFOLD(ender) + + /* Under /u, the fold of any character in + * the 0-255 range happens to be its + * lowercase equivalent, except for LATIN + * SMALL LETTER SHARP S, which was handled + * above, and the MICRO SIGN, whose fold + * requires UTF-8 to represent. */ + : (char) toLOWER_L1(ender); } } /* End of adding current character to the node */ -- Perl5 Master Repository
