05/05: gnu: iwd: Patch resolvconf path.

[guix-commits]

hako pushed a commit to branch master
in repository guix.

commit 551d013a56bf7d22bac80e0fd21d971973c3cf6f
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Sat Oct 28 11:55:24 2023 +0800

    gnu: iwd: Patch resolvconf path.
    
    * gnu/packages/networking.scm (iwd)[inputs]: Add openresolv.
    [arguments]<#:phases>: Add 'patch-resolvconf-path.
    
    Change-Id: Ica59a76dd6318e06979314e4b49c5371f4c98e4d
---
 gnu/packages/networking.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index a064053d8a..2f62194c56 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -113,6 +113,7 @@
   #:use-module (gnu packages curl)
   #:use-module (gnu packages cyrus-sasl)
   #:use-module (gnu packages dejagnu)
+  #:use-module (gnu packages dns)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages documentation)
   #:use-module (gnu packages flex)
@@ -4066,7 +4067,7 @@ powerful route filtering syntax and an easy-to-use 
configuration interface.")
                 "199pcs20054xhp5c0dnxf9ny5cf5cynkqpx68dpn46nq8ly76n2y"))))
     (build-system gnu-build-system)
     (inputs
-     (list dbus ell (package-source ell) readline))
+     (list dbus ell (package-source ell) openresolv readline))
     (native-inputs
      (list autoconf
            automake
@@ -4102,6 +4103,13 @@ powerful route filtering syntax and an easy-to-use 
configuration interface.")
                         (copy-file (string-append ell-header-dir "/" file-name)
                                    (string-append target-dir "/" file-name)))
                       '("asn1-private.h" "useful.h")))))
+               (add-after 'unpack 'patch-resolvconf-path
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "src/resolve.c"
+                     (("getenv\\(\"PATH\"\\)")
+                      (format #f "\"~a\""
+                              (dirname (search-input-file
+                                        inputs "sbin/resolvconf")))))))
                (add-after 'configure 'patch-Makefile
                  (lambda _
                    (substitute* "Makefile"