Never pick up Strawberry Perl's pkg-config as a valid implementation

Strawberry Perl places a `pkg-config.bat` into PATH that is written in
Perl and is not intended to be used by third parties as a MinGW
distribution. This wouldn't matter, except that Strawberry Perl is
also included in Github CI images out of the box, in `PATH`, and it
breaks everyone's CI jobs.

This is already done by Meson and CMake:

mesonbuild/meson#9384

https://gitlab.kitware.com/cmake/cmake/-/merge_requests/9375

Fixes rust-lang#164

Author: nirbheek

src/lib.rs

@@ -92,7 +92,7 @@ use std::fmt;
 use std::fmt::Display;
 use std::io;
 use std::ops::{Bound, RangeBounds};
-use std::path::PathBuf;
+use std::path::{Path, PathBuf};
 use std::process::{Command, Output};
 use std::str;
 
@@ -652,14 +652,81 @@ impl Config {
         self.statik.unwrap_or_else(|| self.infer_static(name))
     }
 
+    #[cfg(windows)]
+    fn find_pkg_config_in(&self, mut path: PathBuf, pathexts: &[OsString]) -> Option<OsString> {
+        path.push("pkg-config");
+        for pathext in pathexts {
+            path.set_extension(pathext);
+            if !path.is_file() {
+                return None;
+            }
+            // Strawberry Perl's pkg-config is pkg-config.bat
+            if pathext.eq_ignore_ascii_case("bat") {
+                let mut cmd = Command::new(path.as_os_str());
+                let out = match cmd.arg("--help").output() {
+                    Ok(o) => o,
+                    Err(e) => {
+                        eprintln!("Ignoring unusable pkg-config ({:?}): {:?}", path, e);
+                        return None;
+                    }
+                };
+                if let Ok(out) = str::from_utf8(&out.stdout) {
+                    if out.contains("Pure-Perl") {
+                        eprintln!("Ignoring Strawberry Perl pkg-config: {:?}", path);
+                        return None;
+                    }
+                }
+            }
+        }
+        Some(path.into_os_string())
+    }
+
+    fn pkg_config_from_path(&self) -> OsString {
+        #[cfg(windows)]
+        {
+            // Resolve pkg-config in PATH to find the absolute path to pkg-config that we should
+            // use, so that we can skip Strawberry Perl's pure-perl implementation of pkg-config.
+            // Despite its presence in PATH, the implementation is for internal use and not meant
+            // to be used as a MinGW distribution.
+            use std::os::windows::prelude::*;
+            let pathexts = env::var_os("PATHEXT").map_or_else(
+                || {
+                    ["COM", "EXE", "BAT"]
+                        .iter()
+                        .map(|v| OsStr::new(v).to_owned())
+                        .collect::<Vec<_>>()
+                },
+                |v| {
+                    env::split_paths(&v)
+                        // PATHEXT is a list of .EXT but we want EXT
+                        .map(|v| OsString::from_wide(v.as_os_str().encode_wide()[1..]))
+                        .collect::<Vec<_>>()
+                },
+            );
+            // Windows first searches for the specified command in the current directory,
+            // regardless of the value of PATH.
+            if let Some(ret) = self.find_pkg_config_in(".".into(), &pathexts) {
+                return ret;
+            }
+            if let Some(paths) = env::var_os("PATH") {
+                for mut path in env::split_paths(&paths) {
+                    if let Some(ret) = self.find_pkg_config_in(path, &pathexts) {
+                        return ret;
+                    }
+                }
+            }
+        }
+        OsString::from("pkg-config")
+    }
+
     fn run(&self, name: &str, args: &[&str]) -> Result<Vec<u8>, Error> {
         let pkg_config_exe = self.targeted_env_var("PKG_CONFIG");
         let fallback_exe = if pkg_config_exe.is_none() {
             Some(OsString::from("pkgconf"))
         } else {
             None
         };
-        let exe = pkg_config_exe.unwrap_or_else(|| OsString::from("pkg-config"));
+        let exe = pkg_config_exe.unwrap_or_else(|| self.pkg_config_from_path());
 
         let mut cmd = self.command(exe, name, args);