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
This commit is contained in:
Maxim Cournoyer 2023-12-18 23:49:27 -05:00
parent 6454788a5c
commit bed9103579
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -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 @@ (define-public guile-udev
(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