andreas pushed a commit to branch kernel-team
in repository guix.
commit b89b67aaa434caaaadcab9cc3dc4f11558735ee7
Author: Julian Flake <fl...@uni-koblenz.de>
AuthorDate: Thu Nov 28 22:11:51 2024 +0100
gnu: bluez: Update to 5.79.
* gnu/packages/linux.scm (bluez): Update to 5.79.
[arguments]: Replace the 'install' phase to work around an installation
failure, described here:
https://issues.guix.gnu.org/74597#5
Co-authored-by: Dariqq <dar...@posteo.net>
Change-Id: I5928664f929d1bda6e8c8c5e37cb9020a9889881
Signed-off-by: Leo Famulari <l...@famulari.name>
---
gnu/packages/linux.scm | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 61dd24f34a..c8706a7b35 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -6589,7 +6589,7 @@ Bluetooth audio output devices like headphones or
loudspeakers.")
(define-public bluez
(package
(name "bluez")
- (version "5.72")
+ (version "5.79")
(source (origin
(method url-fetch)
(uri (string-append
@@ -6597,7 +6597,7 @@ Bluetooth audio output devices like headphones or
loudspeakers.")
version ".tar.xz"))
(sha256
(base32
- "0vjk4ihywzv8k07bxq7clqgi2afrw54nfp0gcnxw35m98nipz7a9"))))
+ "12pal1m4xlr8k7kxb6isv5lbaca2wc5zcgy0907wfwcz78qaar21"))))
(build-system gnu-build-system)
(arguments
(list
@@ -6621,6 +6621,18 @@ Bluetooth audio output devices like headphones or
loudspeakers.")
(lambda _
(substitute* "unit/test-gatt.c"
(("tester_init\\(&argc, &argv\\);") "return 77;"))))
+ (replace 'install
+ (lambda* (#:key make-flags #:allow-other-keys #:rest args)
+ ;; Override the sysconfdir and localstatedir locations only for
+ ;; the installation phase. Otherwise, the installation fails
when
+ ;; it tries to write to /etc/bluetooth and /var.
+ (define make-flags*
+ (append make-flags (list (string-append "sysconfdir="
+ #$output "/etc")
+ (string-append "localstatedir="
+ #$output "/var"))))
+ (apply (assoc-ref %standard-phases 'install)
+ (append args (list #:make-flags make-flags*)))))
(add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((servicedir (string-append #$output
