03/09: gnu: gnutls@3.8: Do not rely expect ‘PATH_MAX’ definition on GNU/Hurd.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a1ac534f8a509bc7ddf11bcd5987fa65adf8c9ca
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Oct 23 23:26:31 2023 +0200

    gnu: gnutls@3.8: Do not rely expect ‘PATH_MAX’ definition on GNU/Hurd.
    
    Fixes <https://issues.guix.gnu.org/66691>.
    
    * gnu/packages/tls.scm (gnutls-3.8.1)[arguments]: New field.
    
    Change-Id: If208591d78d5d023220bd3a7e3841af172c605ff
---
 gnu/packages/tls.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index d62c00dcff..6a0aaf7f14 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -318,7 +318,20 @@ required structures.")
               (patches (search-patches "gnutls-skip-trust-store-test.patch"))
               (sha256
                (base32
-                "1742jiigwsfhx7nj5rz7dwqr8d46npsph6b68j7siar0mqarx2xs"))))))
+                "1742jiigwsfhx7nj5rz7dwqr8d46npsph6b68j7siar0mqarx2xs"))))
+    (arguments
+     (if (target-hurd?)
+         ;; Fix reference to undefined 'PATH_MAX'.  This is fixed in GnuTLS
+         ;; commit 3b6ec1e01de4e96d36276dfe34ee9e183f285264.
+         (substitute-keyword-arguments (package-arguments gnutls)
+           ((#:phases phases #~%standard-phases)
+            #~(modify-phases #$phases
+                (add-after 'unpack 'set-path-max
+                  (lambda _
+                    (substitute* "lib/pathbuf.h"
+                      (("^#define GNUTLS_PATH_MAX PATH_MAX")
+                       "#define GNUTLS_PATH_MAX 8192\n")))))))
+         (package-arguments gnutls)))))
 
 (define-public gnutls/dane
   ;; GnuTLS with build libgnutls-dane, implementing DNS-based