In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/ebf06983127fdec6e5f31c7ecc2d3a3ac991cfa2?hp=1633525e65fd75604f4ed1aef2e0f776858a1398>
- Log ----------------------------------------------------------------- commit ebf06983127fdec6e5f31c7ecc2d3a3ac991cfa2 Author: Karl Williamson <[email protected]> Date: Fri Mar 8 09:45:37 2019 -0700 Don't use utf8_heavy.pl unless needed Prior to this commit 'use utf8' loaded utf8_heavy.pl. But previous commits in the 5.29 series mean it is not needed from the core unless a tr/// is using UTF-8, a much less likely occurrence. So load it only on demand ----------------------------------------------------------------------- Summary of changes: lib/utf8.pm | 3 +-- utf8.c | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/utf8.pm b/lib/utf8.pm index 9d56095539..607c59df74 100644 --- a/lib/utf8.pm +++ b/lib/utf8.pm @@ -2,7 +2,7 @@ package utf8; $utf8::hint_bits = 0x00800000; -our $VERSION = '1.21'; +our $VERSION = '1.22'; sub import { $^H |= $utf8::hint_bits; @@ -13,7 +13,6 @@ sub unimport { } sub AUTOLOAD { - require "utf8_heavy.pl"; goto &$AUTOLOAD if defined &$AUTOLOAD; require Carp; Carp::croak("Undefined subroutine $AUTOLOAD called"); diff --git a/utf8.c b/utf8.c index 71159526ae..9487149f56 100644 --- a/utf8.c +++ b/utf8.c @@ -4321,8 +4321,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, SAVEBOOL(TAINT_get); TAINT_NOT; #endif - Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn(pkg,pkg_len), - NULL); + require_pv("utf8_heavy.pl"); { /* Not ERRSV, as there is no need to vivify a scalar we are about to discard. */ -- Perl5 Master Repository
