01/01: gnu: glib: Reference dbus-launch by its absolute path.

[guix-commits]

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

commit 7da3e81aa1b95ba2d72118e393c4531da44d5536
Author: Maxim Cournoyer <address@hidden>
Date:   Tue Sep 10 11:02:16 2019 +0900

    gnu: glib: Reference dbus-launch by its absolute path.
    
    * gnu/packages/glib.scm (glib)[phases]{patch-dbus-launch-path}: New phase.
---
 gnu/packages/glib.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index c558d9f..62f0943 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -201,6 +201,14 @@ shared NFS home directories.")
    (arguments
     `(#:phases
       (modify-phases %standard-phases
+        (add-after 'unpack 'patch-dbus-launch-path
+          (lambda* (#:key inputs #:allow-other-keys)
+            (let ((dbus (assoc-ref inputs "dbus")))
+              (substitute* "gio/gdbusaddress.c"
+                (("command_line = g_strdup_printf \\(\"dbus-launch")
+                 (string-append "command_line = g_strdup_printf (\""
+                                dbus "/bin/dbus-launch")))
+              #t)))
         (add-before 'build 'pre-build
           (lambda* (#:key inputs outputs #:allow-other-keys)
             ;; For tests/gdatetime.c.