-my $cc = check_exe('C compiler', 'CC', 'cc', 'CC');
+my ($pp, $skip_arg);
+for my $i (0 .. $#ARGV) {
+ my $arg = $ARGV[$i];
+ if ($arg =~ /^PP=(.*)/) {
+ my $val = $1;
+ if (do { no warnings 'numeric'; int $val } or $val =~ /^(?:y|yes)$/i) {
+ print "Forcing the pure-Perl implementation from the arguments passed to Makefile.PL.\n";
+ $pp = 1;
+ $skip_arg = $i;
+ last;
+ }
+ }
+}
+if (defined $skip_arg) {
+ splice @ARGV, $skip_arg, 1;
+}