X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2FMakefile.PL;h=83e4e64ccd05b93324150623d724f2c0690f11e7;hb=8676e7d322bcb9ce4010d380a2367dc55cf6a6de;hp=2e74fe4034707a77b4db8664ba198d56eefa687d;hpb=ea77424f78f703cf24ccf2f17ae94dd80b621424;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL
index 2e74fe4..83e4e64 100644
--- a/ext/Encode/Makefile.PL
+++ b/ext/Encode/Makefile.PL
@@ -2,9 +2,9 @@ use 5.007003;
 use ExtUtils::MakeMaker;
 
 # Just for sure :)
-unless($ENV{PERL_CORE}) {
-    $ENV{PERL_CORE} = 1 if ($^X =~ m{\bminiperl[^/\\\]>:]*$}o);
-}
+my %ARGV = map { split /=/; defined $_[1] or $_[1]=1; @_ } @ARGV;
+$ARGV{DEBUG} and warn "$_ => $ARGV{$_}\n" for keys  %ARGV;
+$ENV{PERL_CORE} ||= $ARGV{PERL_CORE};
 
 my %tables = 
     (
@@ -22,14 +22,9 @@ my @more_exe_files = qw(
 			unidump
 			);
 my @pmlibdirs = qw(lib Encode);
-for my $arg (@ARGV){
-    if ($arg eq "MORE_SCRIPTS"){
-	push @exe_files, @more_exe_files;
-    }
-    if ($arg eq "INSTALL_UCM"){
-	push @pmlibdirs, "ucm";
-    }
-}
+
+$ARGV{MORE_SCRIOPTS} and push @exe_files, @more_exe_files;
+$ARGV{INSTALL_UCM}   and push @pmlibdirs, "ucm";
 
 WriteMakefile(
 	      NAME		=> "Encode",