In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/22f0498f72a6bf8a084f17bd4b25c95510366658?hp=ec34c8a466df9ede8b3435964d9953bce0e5c95b>
- Log ----------------------------------------------------------------- commit 22f0498f72a6bf8a084f17bd4b25c95510366658 Author: Karl Williamson <[email protected]> Date: Sat Dec 24 15:12:37 2016 -0700 utf8.c: Avoid reinitializing This code, recently added, initializes 2 inversion lists, but forgets to save the results properly, so it gets reinitialized every time its called. M utf8.c commit 047c7c840ed49a138d2bb647049be888a2b8709c Author: Karl Williamson <[email protected]> Date: Sat Dec 24 14:54:54 2016 -0700 PATCH: [perl #130397] Rmv useless code This code doesn't accomplish anything. Spotted by Andy Lester. M utf8.c ----------------------------------------------------------------------- Summary of changes: utf8.c | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/utf8.c b/utf8.c index 575e69d6f5..fd965f8638 100644 --- a/utf8.c +++ b/utf8.c @@ -2574,7 +2574,6 @@ Perl__is_utf8_FOO(pTHX_ U8 classnum, warn_on_first_deprecated_use(name, alternative, use_locale, file, line); if (use_utf8 && UTF8_IS_ABOVE_LATIN1(*p)) { - SV * invlist; switch (classnum) { case _CC_WORDCHAR: @@ -2607,14 +2606,18 @@ Perl__is_utf8_FOO(pTHX_ U8 classnum, return is_VERTWS_high(p); case _CC_IDFIRST: if (! PL_utf8_perl_idstart) { - invlist = _new_invlist_C_array(_Perl_IDStart_invlist); + PL_utf8_perl_idstart + = _new_invlist_C_array(_Perl_IDStart_invlist); } - return is_utf8_common(p, &PL_utf8_perl_idstart, "_Perl_IDStart", invlist); + return is_utf8_common(p, &PL_utf8_perl_idstart, + "_Perl_IDStart", NULL); case _CC_IDCONT: if (! PL_utf8_perl_idcont) { - invlist = _new_invlist_C_array(_Perl_IDCont_invlist); + PL_utf8_perl_idcont + = _new_invlist_C_array(_Perl_IDCont_invlist); } - return is_utf8_common(p, &PL_utf8_perl_idcont, "_Perl_IDCont", invlist); + return is_utf8_common(p, &PL_utf8_perl_idcont, + "_Perl_IDCont", NULL); } } @@ -4763,7 +4766,6 @@ Perl__swash_to_invlist(pTHX_ SV* const swash) invlist = _new_invlist(0); } else { - while (isSPACE(*l)) l++; l = (U8 *) after_atou; /* Get the 0th element, which is needed to setup the inversion list */ -- Perl5 Master Repository
