02/02: gnu: perl-mozilla-ca: Use system SSL certificates.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit cd45294d576975a3bff2f755764a3f46f09ea6f9
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Apr 8 12:26:51 2024 +0300

    gnu: perl-mozilla-ca: Use system SSL certificates.
    
    * gnu/packages/perl.scm (perl-mozilla-ca)[source]: Add snippet to remove
    bundled certificates, use system certificates, and adjust the manpage
    accordingly.
    [arguments]: Skip the tests.
    
    Change-Id: I4b3451c0012c7b4ae40efdfd609f00644d871c2c
---
 gnu/packages/perl.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4f957c4a1d..80b17098c7 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -8087,8 +8087,23 @@ of data.")
                            version ".tar.gz"))
        (sha256
         (base32
-         "1rwq2qb8f101ihq5gmdmr9vsnx7ybnln85489y4k761hks9p6j32"))))
+         "1rwq2qb8f101ihq5gmdmr9vsnx7ybnln85489y4k761hks9p6j32"))
+       (snippet
+        #~(begin (use-modules (guix build utils))
+                 (delete-file "lib/Mozilla/CA/cacert.pem")
+                 (substitute* "lib/Mozilla/CA.pm"
+                   (("my \\$file.*") "my $file = $ENV{SSL_CERT_FILE};\n")
+                   (("return.*")
+                    (string-append
+                      "if (!File::Spec->file_name_is_absolute($file)) {\n"
+                      "        $file = 
\"/etc/ssl/certs/ca-certificates.crt\";\n"
+                      "    }\n"
+                      "    return $file;\n"))
+                   (("provides a copy of.*")
+                    "provides a link to the user's or the system's SSL\n"))))))
     (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f))        ; Tests rely on embedded cacert.pem.
     (home-page "https://metacpan.org/release/Mozilla-CA";)
     (synopsis "Mozilla's CA cert bundle in PEM format")
     (description "@code{Mozilla::CA} provides a copy of Mozilla's bundle of