In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/8ef5f0698395e173e3e7fc6397d5846e1c5d59d0?hp=899fb8883769d254c4cfce1f9790ffe68bbc02a8>

- Log -----------------------------------------------------------------
commit 8ef5f0698395e173e3e7fc6397d5846e1c5d59d0
Author: Graham Knop <[email protected]>
Date:   Sat Apr 15 16:23:11 2017 +0200

    prevent mro.pm from loading DynaLoader
    
    XSLoader::load cares about the package it is called from.  If it is a
    different package from what you are trying to load, it falls back to
    loading and using DynaLoader.
    
    Move the load call to be in the mro package as it should be, so that it
    doesn't trigger needless extra load.
-----------------------------------------------------------------------

Summary of changes:
 ext/mro/mro.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ext/mro/mro.pm b/ext/mro/mro.pm
index 92e8ca38cb..40aeb7a7b0 100644
--- a/ext/mro/mro.pm
+++ b/ext/mro/mro.pm
@@ -12,7 +12,10 @@ use warnings;
 
 # mro.pm versions < 1.00 reserved for MRO::Compat
 #  for partial back-compat to 5.[68].x
-our $VERSION = '1.20';
+our $VERSION = '1.21';
+
+require XSLoader;
+XSLoader::load('mro');
 
 sub import {
     mro::set_mro(scalar(caller), $_[1]) if $_[1];
@@ -37,9 +40,6 @@ sub method {
     return;
 }
 
-require XSLoader;
-XSLoader::load('mro');
-
 1;
 
 __END__

--
Perl5 Master Repository

Reply via email to