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";
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";