(address . guix-patches@gnu.org)(name . John Doe)(address . dftxbs3e@free.fr)
20201217142418.4497-1-dftxbs3e@free.fr
* gnu/packages/networking.scm (miredo):
[inputs]: Add iproute.
[arguments]: New phase 'patch-iproute2 that patches sources to use
iproute2 from the store.
---
gnu/packages/networking.scm | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
Toggle diff (34 lines)
diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 1226b8606f..281c4a0179 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -688,13 +688,22 @@ or, more generally, MAC addresses of the same category of hardware.")
(arguments
'(#:phases
(modify-phases %standard-phases
+ (add-after 'unpack 'patch-iproute2
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let* ((iproute (assoc-ref inputs "iproute"))
+ (ip (string-append iproute "/sbin/ip")))
+ (substitute* "misc/client-hook.iproute"
+ (("/sbin/ip") ip))
+ #t)))
;; The checkconf test in src/ requires network access.
(add-before
- 'check 'disable-checkconf-test
- (lambda _
- (substitute* "src/Makefile"
- (("^TESTS = .*") "TESTS = \n"))
- #t)))))
+ 'check 'disable-checkconf-test
+ (lambda _
+ (substitute* "src/Makefile"
+ (("^TESTS = .*") "TESTS = \n"))
+ #t)))))
+ (inputs
+ `(("iproute" ,iproute)))
(home-page "https://www.remlab.net/miredo/")
(synopsis "Teredo IPv6 tunneling software")
(description
--
2.29.2