From f0ba0f7eec5accb63a68da83d24fddbef2dc575b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 15 Jun 2025 23:17:51 +0200
Subject: [PATCH] gnu: gnutls: Update to 3.8.9.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/tls.scm (gnutls): Update to 3.8.9.
[arguments]: Add ‘gnutls_cv_soname_z’ to #:configure-flags.
[inputs]: Add ‘zlib’.

Change-Id: Ia0e22f82199e67dafbb2283401fe168499c134b7
---
 gnu/packages/tls.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 2411819b8a8..7a450174c26 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -205,7 +205,7 @@ living in the same process.")
 (define-public gnutls
   (package
     (name "gnutls")
-    (version "3.8.3")
+    (version "3.8.9")
     (source (origin
               (method url-fetch)
               ;; Note: Releases are no longer on ftp.gnu.org since the
@@ -216,7 +216,7 @@ living in the same process.")
               (patches (search-patches "gnutls-skip-trust-store-test.patch"))
               (sha256
                (base32
-                "0ghpyhhfa3nsraph6dws50jb3dc8g2cfl7dizdnyrm179fawakzp"))))
+                "1v9090cbajf02cw01idfbp0cgmgjn5091ff1b96hqryi0bc17qb9"))))
     (build-system gnu-build-system)
     (arguments
      (list #:tests? (not (or (%current-target-system)
@@ -242,6 +242,12 @@ living in the same process.")
               ;; independently.  This seems suboptimal.
               "--with-default-trust-store-dir=/etc/ssl/certs"
 
+              ;; The compression extensions dlopen compression libraries.
+              ;; Give them the absolute file name to look for.  (The variable
+              ;; is called 'soname' but it's really the file name.)
+              (string-append "gnutls_cv_soname_z="
+                             #$(this-package-input "zlib") "/lib/libz.so")
+
               (let ((system #$(or (%current-target-system)
                                   (%current-system))))
                 (if (string-prefix? "mips64el" system)
@@ -290,7 +296,7 @@ living in the same process.")
                        iproute          ;for 'ss'
                        socat            ;several tests rely on it
                        datefudge))))    ;tests rely on 'datefudge'
-    (inputs (list libunistring))
+    (inputs (list libunistring zlib))
     (propagated-inputs
      ;; These are all in the 'Requires.private' field of gnutls.pc.
      (append (list libtasn1 libidn2 nettle zlib)