From cff66ca3fca54f81a7b411bd06f47b49e8fc0609 Mon Sep 17 00:00:00 2001
From: Julian Flake <flake@uni-koblenz.de>
Date: Thu, 28 Nov 2024 22:11:51 +0100
Subject: 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 <dariqq@posteo.net>

Change-Id: I5928664f929d1bda6e8c8c5e37cb9020a9889881
Signed-off-by: Leo Famulari <leo@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 818cdc76d3f..b4ab1633391 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -6577,7 +6577,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
@@ -6585,7 +6585,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
                     version ".tar.xz"))
               (sha256
                (base32
-                "0vjk4ihywzv8k07bxq7clqgi2afrw54nfp0gcnxw35m98nipz7a9"))))
+                "12pal1m4xlr8k7kxb6isv5lbaca2wc5zcgy0907wfwcz78qaar21"))))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -6609,6 +6609,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
-- 
cgit v1.3