02/03: gnu: python-dnspython: Patch out problematic getprotobyname calls.

[guix-commits]

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

commit e5ffff316f93f0c155f66647b6331909d35af668
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Nov 22 11:02:07 2021 -0500

    gnu: python-dnspython: Patch out problematic getprotobyname calls.
    
    * gnu/packages/python-xyz.scm (python-dnspython)
    [phases]{patch-getprotobyname-calls}: New phase.
---
 gnu/packages/python-xyz.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index 0dbf23e..e0682e6 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -15911,8 +15911,21 @@ until the object is actually required, and caches the 
result of said call.")
                (base32
                 "1m0xvyby8baaxp6pfm0fgq8d2pq5dd8qm8bzfbrs009jaw5pza74"))))
     (build-system python-build-system)
+    (arguments
+     `(#:tests? #f                      ; XXX: requires internet access
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-getprotobyname-calls
+           ;; These calls are problematic in the build environment as there is
+           ;; no /etc/protocols.  This breaks the sanity-check phase of any
+           ;; package depnding on this one.
+           (lambda _
+             (substitute* "dns/rdtypes/IN/WKS.py"
+               (("socket.getprotobyname\\('tcp'\\)")
+                "6")
+               (("socket.getprotobyname\\('udp'\\)")
+                "17")))))))
     (native-inputs `(("unzip" ,unzip)))
-    (arguments '(#:tests? #f))          ; XXX: requires internet access
     (home-page "https://www.dnspython.org";)
     (synopsis "DNS toolkit for Python")
     (description