diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-12-18 23:49:27 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-12-19 00:36:30 -0500 |
| commit | bed9103579686b1cc991ee4f955c2bc5067299d0 (patch) | |
| tree | 872c826ceb03e0a0d03e5a093a8f615aeffab8fa | |
| parent | 6454788a5cf79a217bda86d49a6e403cc803747f (diff) | |
| download | guix-patches-bed9103579686b1cc991ee4f955c2bc5067299d0.tar guix-patches-bed9103579686b1cc991ee4f955c2bc5067299d0.tar.gz | |
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
| -rw-r--r-- | gnu/packages/guile-xyz.scm | 14 |
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 |