From 67044b559e462f738d9cd3846cc750e30d6649a9 Mon Sep 17 00:00:00 2001
From: Takumi Akiyama <t.akiym@gmail.com>
Date: Fri, 29 Oct 2021 00:04:48 +0900
Subject: [PATCH] macOS: check dylib exists in library paths

Previously `openssl_lib_paths()` returned `"-L/usr/local/opt/openssl -L/usr/local/opt/openssl/lib"` in many cases.
However, in macOS 12 Monterey, this behavior causes an error when building: `perl is loading libcrypto in an unsafe way`
So `openssl_lib_paths()` now returns directories where libcrypto.dylib and libssl.dylib exist as library path.

See also https://github.com/macports/macports-ports/pull/12704
---
 lib/Crypt/OpenSSL/Guess.pm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/lib/Crypt/OpenSSL/Guess.pm b/lib/Crypt/OpenSSL/Guess.pm
index b6652b0..fad79cc 100644
--- a/lib/Crypt/OpenSSL/Guess.pm
+++ b/lib/Crypt/OpenSSL/Guess.pm
@@ -70,6 +70,14 @@ sub openssl_lib_paths {
             }
         }
     }
+    elsif ($^O eq 'darwin') {
+        for my $dir (@lib_paths) {
+            if (-f "$dir/libcrypto.dylib" && -f "$dir/libssl.dylib") {
+                @lib_paths = ($dir);
+                last;
+            }
+        }
+    }
     elsif ($^O eq 'VMS') {
         if (-r 'sslroot:[000000]openssl.cnf') {      # openssl.org source install
             @lib_paths = ('SSLLIB');
@@ -226,7 +234,7 @@ Crypt::OpenSSL::Guess - Guess OpenSSL include path
 
 Crypt::OpenSSL::Guess provides helpers to guess OpenSSL include path on any platforms.
 
-Often MacOS's homebrew OpenSSL cause a problem on installation due to include path is not added.
+Often macOS's homebrew OpenSSL cause a problem on installation due to include path is not added.
 Some CPAN module provides to modify include path with configure-args, but L<Carton> or L<Module::CPANfile>
 is not supported to pass configure-args to each modules. Crypt::OpenSSL::* modules should use it on your L<Makefile.PL>.
 
@@ -241,25 +249,25 @@ Original code is taken from C<inc/Module/Install/PRIVATE/Net/SSLeay.pm> by L<Net
 
 This functions returns include paths in the format passed to CC. If OpenSSL could not find, then empty string is returned.
 
-    openssl_inc_paths(); # on MacOS: "-I/usr/local/opt/openssl/include"
+    openssl_inc_paths(); # on macOS: "-I/usr/local/opt/openssl/include"
 
 =item openssl_lib_paths()
 
 This functions returns library paths in the format passed to CC. If OpenSSL could not find, then empty string is returned.
 
-    openssl_lib_paths(); # on MacOS: "-L/usr/local/opt/openssl -L/usr/local/opt/openssl/lib"
+    openssl_lib_paths(); # on macOS: "-L/usr/local/opt/openssl/lib"
 
 =item find_openssl_prefix([$dir])
 
 This function returns OpenSSL's prefix. If set C<OPENSSL_PREFIX> environment variable, you can overwrite the return value.
 
-    find_openssl_prefix(); # on MacOS: "/usr/local/opt/openssl"
+    find_openssl_prefix(); # on macOS: "/usr/local/opt/openssl"
 
 =item find_openssl_exec($prefix)
 
 This functions returns OpenSSL's executable path.
 
-    find_openssl_exec(); # on MacOS: "/usr/local/opt/openssl/bin/openssl"
+    find_openssl_exec(); # on macOS: "/usr/local/opt/openssl/bin/openssl"
 
 =item ($major, $minor, $letter) = openssl_version()