In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e051d009541f9ca3c34306dc18d7638f4acfe50a?hp=9e86103257aa44e18c24957134bcddc6d4158581>
- Log ----------------------------------------------------------------- commit e051d009541f9ca3c34306dc18d7638f4acfe50a Author: Karl Williamson <[email protected]> Date: Thu Apr 9 12:51:52 2015 -0600 Regen podcheck db Commit 9e86103257aa44e18c24957134bcddc6d4158581 made a change that podcheck thinks might be a problem (but it really isn't), so has to be silenced. The whining happened only in pedantic mode M t/porting/known_pod_issues.dat commit d3c865f7447f59ea1f66cf639c9e6776485a9355 Author: Karl Williamson <[email protected]> Date: Thu Apr 9 12:01:37 2015 -0600 Fix regression in 5.21: /[A-Z]/ai /[A-Z]/ai should match KELVIN SIGN, as it folds to a 'k'. It should not match under /aai, as that restricts fold matching. But I tested for the wrong symbol which ended up forbidding both /ai and /aai. This commit changes to the correct symbol. I also reordered the 'if' while I was at it as a nano optimisation, to test for the /aa last, as that is the less common part of the '&&' test. M regcomp.c M t/re/re_tests ----------------------------------------------------------------------- Summary of changes: regcomp.c | 5 ++--- t/porting/known_pod_issues.dat | 1 + t/re/re_tests | 2 ++ 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/regcomp.c b/regcomp.c index 5d5332d..f8f6a66 100644 --- a/regcomp.c +++ b/regcomp.c @@ -15395,10 +15395,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, op = POSIXA; } } - else if (AT_LEAST_ASCII_RESTRICTED || ! FOLD) { + else if (! FOLD || ASCII_FOLD_RESTRICTED) { /* We can optimize A-Z or a-z, but not if they could match - * something like the KELVIN SIGN under /i (/a means they - * can't) */ + * something like the KELVIN SIGN under /i. */ if (prevvalue == 'A') { if (value == 'Z' #ifdef EBCDIC diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index 12a0f6f..0fc61b5 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -302,6 +302,7 @@ pod/perlos2.pod ? Should you be using L<...> instead of 2 pod/perlos2.pod Verbatim line length including indents exceeds 79 by 21 pod/perlos390.pod Verbatim line length including indents exceeds 79 by 11 pod/perlperf.pod Verbatim line length including indents exceeds 79 by 154 +pod/perlport.pod ? Should you be using L<...> instead of 1 pod/perlrun.pod Verbatim line length including indents exceeds 79 by 3 pod/perlsolaris.pod Verbatim line length including indents exceeds 79 by 14 pod/perlsource.pod ? Should you be using F<...> or maybe L<...> instead of 1 diff --git a/t/re/re_tests b/t/re/re_tests index 2d10039..a5f0527 100644 --- a/t/re/re_tests +++ b/t/re/re_tests @@ -1917,6 +1917,8 @@ A+(*PRUNE)BC(?{}) AAABC y $& AAABC # pat string y/n/etc expr expected-expr skip-reason comment /[a-z]/i \N{KELVIN SIGN} y $& \N{KELVIN SIGN} +/[A-Z]/ia \N{KELVIN SIGN} y $& \N{KELVIN SIGN} +/[A-Z]/iaa \N{KELVIN SIGN} n - - /[A-Z]/i \N{LATIN SMALL LETTER LONG S} y $& \N{LATIN SMALL LETTER LONG S} # RT #123840: these used to hang in re_intuit_start -- Perl5 Master Repository
