This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new bed9103579 gnu: guile-udev: Fix dlopen error at run time.
bed9103579 is described below

commit bed9103579686b1cc991ee4f955c2bc5067299d0
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Mon Dec 18 23:49:27 2023 -0500

    gnu: guile-udev: Fix dlopen error at run time.
    
    * gnu/packages/guile-xyz.scm (guile-udev)
    [arguments]: Add patch-extension-path phase.
    
    Change-Id: I4620c234e8ac45dcc1c2a3ab8871b8ab9d9c35c0
---
 gnu/packages/guile-xyz.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 2a6bd8071d..7b44dc3167 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -16,7 +16,7 @@
 ;;; Copyright © 2017 Theodoros Foradis <[email protected]>
 ;;; Copyright © 2017 Nikita <[email protected]>
 ;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice <[email protected]>
-;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer <[email protected]>
+;;; Copyright © 2018, 2021, 2022, 2023 Maxim Cournoyer 
<[email protected]>
 ;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Arun Isaac 
<[email protected]>
 ;;; Copyright © 2018 Pierre-Antoine Rouby <[email protected]>
 ;;; Copyright © 2018 Eric Bavier <[email protected]>
@@ -2278,6 +2278,18 @@ users and in some situations.")
                (base32
                 "1q1snj8gz2bvqw2v2jvwlzn5xfh7f7wlp922isnzismrp4adc918"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-extension-path
+            (lambda _
+              ;; Provide the absolute path of the guile-libudev extension to
+              ;; ensure the dlopen call always succeeds.
+              (substitute* (find-files "." "\\.scm")
+                (("load-extension \"libguile-udev\"")
+                 (format #f "load-extension \"~a/lib/libguile-udev.so\""
+                         #$output))))))))
     (native-inputs (list autoconf
                          automake
                          gettext-minimal

Reply via email to