X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=0c1d029a2b572370d257c97e5823140c3137e8e2;hb=e4d210408f1e0188a0c9ea5a1593f0e147a10d71;hp=b6344e0c89f99028e11b5996032a76df0a8976cb;hpb=3d084a8cc8d18ccfd4e39a64ae21668674ed9c47;p=p5sagit%2FDevel-GlobalDestruction.git

diff --git a/Makefile.PL b/Makefile.PL
index b6344e0..0c1d029 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -19,14 +19,26 @@ BEGIN { if ( $^O eq 'cygwin' ) {
   }
 }}
 
+use Text::ParseWords;
+
+sub parse_args {
+  # copied from EUMM
+  ExtUtils::MakeMaker::parse_args(
+    my $tmp = {},
+    Text::ParseWords::shellwords($ENV{PERL_MM_OPT} || ''),
+    @ARGV,
+  );
+  return $tmp->{ARGS} || {};
+}
+
 my $mymeta_works = eval { ExtUtils::MakeMaker->VERSION('6.5707'); 1 };
 my $mymeta = $mymeta_works || eval { ExtUtils::MakeMaker->VERSION('6.5702'); 1 };
 
 my %META_BITS = (
 );
 my %RUN_DEPS = (
-  'Sub::Exporter::Progressive' => '0.001006',
-  ( (defined ${^GLOBAL_PHASE} or !can_xs() )
+  'Sub::Exporter::Progressive' => '0.001011',
+  ( (defined ${^GLOBAL_PHASE} or parse_args()->{PUREPERL_ONLY} or !can_xs() )
     ? ()
     : ('Devel::GlobalDestruction::XS' => 0)
   ),