-my $pp;
-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;
- last;