03/06: gnu: tcp-wrappers: Allow compilation with glibc 2.33.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit ce67634629e3ff64055dbc1c11c9902169c7a5dc
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Nov 20 22:37:21 2021 +0100

    gnu: tcp-wrappers: Allow compilation with glibc 2.33.
    
    * gnu/packages/networking.scm (tcp-wrappers)[source]: Add 'snippet'.
---
 gnu/packages/networking.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 466be1d..61496da 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -995,7 +995,17 @@ or server shell scripts with network connections.")
                     version ".tar.gz"))
               (sha256
                (base32
-                "0p9ilj4v96q32klavx0phw9va21fjp8vpk11nbh6v2ppxnnxfhwm"))))
+                "0p9ilj4v96q32klavx0phw9va21fjp8vpk11nbh6v2ppxnnxfhwm"))
+              (modules '((guix build utils)))
+              (snippet
+               ;; 'sys_errlist' & co. are gone in glibc 2.33; work around it.
+               '(substitute* "percent_m.c"
+                  (("sys_errlist\\[errno\\]")
+                   "strerror (errno)")
+                  (("errno < sys_nerr")
+                   "(1)")
+                  (("errno >= sys_nerr")
+                   "(0)")))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases