From cd45294d576975a3bff2f755764a3f46f09ea6f9 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 8 Apr 2024 12:26:51 +0300
Subject: 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(-)

(limited to 'gnu/packages/perl.scm')

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 @@ (define-public perl-mozilla-ca
                            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
-- 
cgit v1.2.3