3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

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

* gnu/packages/glib.scm (glib)[phases]{patch-dbus-launch-path}: New phase.
This commit is contained in:
Maxim Cournoyer 2019-09-10 11:02:16 +09:00
parent 47f4df157f
commit 7da3e81aa1
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -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.