You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/dev-perl/List-MoreUtils/files/List-MoreUtils-0.426.0-xs-c...

79 lines
2.1 KiB

From 903ed372cad330e86ef767eb98a4d29d04781e5e Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Sat, 28 Oct 2017 14:53:23 +1300
Subject: Use configuration instead of pure discovery for XS Support
Given in Gentoo that ::XS is either going to be available, or not,
based on user configuration, *before* configure runs, trying to turn
it on/off in configure is nonsense.
Subsequently, this test logic just determines if we should be running
the XS tests or not.
If ::XS is installed already, then XS tests should be run despite user
not opting in to XS, as the opt-in only regulates dependencies, but
LMU can still trigger ::XS at runtime.
If the user opts in to XS, then the tests should be run regardless of
perl detecting XS being installed, because XS *NOT* being available
is then an error.
---
Makefile.PL | 41 ++---------------------------------------
1 file changed, 2 insertions(+), 39 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index 89680b1..5083b86 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,45 +8,8 @@ use 5.008_001;
use Config;
use ExtUtils::MakeMaker;
-BEGIN
-{
- unless (grep { $_ eq "." } @INC)
- {
- use lib ".";
- }
-}
-
-use inc::latest 'Capture::Tiny';
-use inc::latest 'Config::AutoConf';
-
-if (inc::latest->can("write"))
-{
- inc::latest->write("inc");
- for my $mod (inc::latest->loaded_modules)
- {
- inc::latest->bundle_module($mod, "inc");
- }
-}
-
-use inc::Config::AutoConf::LMU ();
-
-inc::Config::AutoConf::LMU->_set_argv(@ARGV); # XXX hack because we cannot construct for global use
-my $loadable_xs = inc::Config::AutoConf::LMU->check_produce_loadable_xs_build();
-
-if (-d "Sandbox")
-{
- unless (grep { $_ eq "." } @INC)
- {
- use lib ".";
- }
- eval "use Sandbox::Tumble ();";
- $@ and die $@;
- eval "use File::Path ();";
- File::Path->import;
- -d 't/xs' and rmtree('t/xs');
- -d 't/pureperl' and rmtree('t/pureperl');
- Sandbox::Tumble->tumble(qw(t));
-}
+my $loadable_xs = $ENV{LMU_USE_XS} ||
+ eval { require List::MoreUtils::XS; List::MoreUtils::XS->VERSION(0.426) };
my $conflictMsg = <<EOCM;
***
--
2.14.3