In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/63c0bfd59562325fed2ac5a90088ed40960ac2ad?hp=57f9c425c249cfe53b33bcbe742b99a3d3357d77>
- Log ----------------------------------------------------------------- commit 63c0bfd59562325fed2ac5a90088ed40960ac2ad Author: David Mitchell <[email protected]> Date: Thu Mar 10 14:42:20 2011 +0000 Revert "regexec.c: don't try accessing non-bitmap if doesn't exist" This reverts commit ac51e94be5daabecdeb0ed734f3ccc059b7b77e3. This commit made many of the re/*.t tests fail, on my build at least. Haven't looked at why, just reverting it for the moment. ----------------------------------------------------------------------- Summary of changes: regexec.c | 11 +++++------ 1 files changed, 5 insertions(+), 6 deletions(-) diff --git a/regexec.c b/regexec.c index 56b906c..76784ee 100644 --- a/regexec.c +++ b/regexec.c @@ -6597,12 +6597,11 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n, if (utf8_target && (flags & ANYOF_UNICODE_ALL) && c >= 256) { match = TRUE; /* Everything above 255 matches */ } - else if (ANYOF_NONBITMAP(n) - && (flags & ANYOF_NONBITMAP_NON_UTF8) - || (utf8_target - && (c >=256 - || (! (flags & ANYOF_LOCALE)) - || (flags & ANYOF_IS_SYNTHETIC)))) + else if ((flags & ANYOF_NONBITMAP_NON_UTF8 + || (utf8_target && ANYOF_NONBITMAP(n) + && (c >=256 + || (! (flags & ANYOF_LOCALE)) + || (flags & ANYOF_IS_SYNTHETIC))))) { AV *av; SV * const sw = regclass_swash(prog, n, TRUE, 0, (SV**)&av); -- Perl5 Master Repository
