02/02: gnu: miredo: Fix creation of .pid file.

[guix-commits]

iyzsong pushed a commit to branch master
in repository guix.

commit 4767ab4bf6ba44439a52b9c403128e86bd6234d5
Author: Léo Le Bouter <lle-bout@zaclys.net>
AuthorDate: Thu Feb 4 23:33:53 2021 +0100

    gnu: miredo: Fix creation of .pid file.
    
    * gnu/packages/networking.scm (miredo)[arguments]: Add 
"--localstatedir=/var"
    to #:configure-flags and add 'do-not-create-/run phase to #:phases to remove
    code that tries to create a directory inside "@localstatedir@" during 
install.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 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 abaab60..5e0022a 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -700,8 +700,16 @@ or, more generally, MAC addresses of the same category of 
hardware.")
                 "0j9ilig570snbmj48230hf7ms8kvcwi2wblycqrmhh85lksd49ps"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases
+     '(#:configure-flags
+       (list "--localstatedir=/var")
+       #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'do-not-create-/run
+           (lambda _
+             (substitute* (find-files "src" "Makefile.*")
+               (("^.+install_sh.+/run.+$")
+                "\ttrue"))
+             #t))
          (add-after 'unpack 'patch-iproute2
            (lambda* (#:key inputs #:allow-other-keys)
              (let* ((iproute (assoc-ref inputs "iproute"))