aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-12-18 23:49:27 -0500
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-12-19 00:36:30 -0500
commitbed9103579686b1cc991ee4f955c2bc5067299d0 (patch)
tree872c826ceb03e0a0d03e5a093a8f615aeffab8fa /gnu/packages
parent6454788a5cf79a217bda86d49a6e403cc803747f (diff)
downloadguix-bed9103579686b1cc991ee4f955c2bc5067299d0.tar.gz
guix-bed9103579686b1cc991ee4f955c2bc5067299d0.zip
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
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/guile-xyz.scm14
1 files changed, 13 insertions, 1 deletions
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 <theodoros@foradis.org>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2018, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
@@ -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