From: Graham Knop <haarg@haarg.org>
Date: Thu, 25 Apr 2013 13:55:49 +0000 (-0400)
Subject: support PUREPERL_ONLY
X-Git-Tag: Devel-GlobalDestruction-0.12~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=219ca4f946f9aa1497cea2eed309f751ea0fa7fe;p=p5sagit%2FDevel-GlobalDestruction.git

support PUREPERL_ONLY
---

diff --git a/Makefile.PL b/Makefile.PL
index b6344e0..ceb9563 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -19,6 +19,15 @@ BEGIN { if ( $^O eq 'cygwin' ) {
   }
 }}
 
+my $pureperl;
+for my $i (0..$#ARGV) {
+  if ($ARGV[$i] =~ /^PUREPERL_ONLY=(.*)/) {
+    $pureperl = $1;
+    splice @ARGV, $i, 1;
+    last;
+  }
+}
+
 my $mymeta_works = eval { ExtUtils::MakeMaker->VERSION('6.5707'); 1 };
 my $mymeta = $mymeta_works || eval { ExtUtils::MakeMaker->VERSION('6.5702'); 1 };
 
@@ -26,7 +35,7 @@ my %META_BITS = (
 );
 my %RUN_DEPS = (
   'Sub::Exporter::Progressive' => '0.001006',
-  ( (defined ${^GLOBAL_PHASE} or !can_xs() )
+  ( (defined ${^GLOBAL_PHASE} or $pureperl or !can_xs() )
     ? ()
     : ('Devel::GlobalDestruction::XS' => 0)
   ),