+ my $ret;
+
+ for my $i (0 .. $#ARGV) {
+ my $arg = $ARGV[$i];
+ if ($arg =~ /^\Q$var\E=(.*)/) {
+ my $val = $1;
+ $ret = $code->($val);
+ $ARGV[$i] = undef;
+ last if $ret;
+ }
+ }
+
+ @ARGV = grep defined, @ARGV;
+
+ return $ret;
+}
+
+my ($cc, $ld);
+my $pp = filter_argv PP => sub {
+ my ($val) = @_;
+ return (do { no warnings 'numeric'; int $val } or $val =~ /^(?:y|yes)$/i)
+ ? 1 : 0;
+};
+if ($pp) {
+ print "Forcing the pure-Perl implementation from the arguments passed to Makefile.PL.\n";
+} else {
+ $cc = check_exe('C compiler', 'CC', 'cc', 'CC');
+ if (defined $cc) {
+ my ($vol, $dir, $file) = File::Spec->splitpath($cc);
+ my $preferred_path = File::Spec->catpath($vol, $dir, '');
+ $ld = check_exe('linker', 'LD', 'ld', 'LD', $preferred_path);
+ }
+}