develooper Front page | perl.perl5.changes | Postings from March 2019

[perl.git] branch blead updated. v5.29.8-63-gebf0698312

From:
Karl Williamson
Date:
March 11, 2019 04:03
Subject:
[perl.git] branch blead updated. v5.29.8-63-gebf0698312
Message ID:
E1h3CA4-0006tE-86@git.dc.perl.space
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 <khw@cpan.org>
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About