pack: Work around ld.so bug that affects the "fakechroot" engine.
Fixes <https://bugs.gnu.org/43491>. * guix/scripts/pack.scm (wrapped-package): Use (runpath program) instead of (runpath #$(audit-module)).
This commit is contained in:
parent
9556ac498f
commit
58abd58739
1 changed files with 8 additions and 2 deletions
|
@ -817,11 +817,17 @@ last resort for relocation."
|
||||||
|
|
||||||
(string-append "-DLOADER_AUDIT_MODULE=\""
|
(string-append "-DLOADER_AUDIT_MODULE=\""
|
||||||
#$(audit-module) "\"")
|
#$(audit-module) "\"")
|
||||||
|
|
||||||
|
;; XXX: Normally (runpath #$(audit-module)) is
|
||||||
|
;; enough. However, to work around
|
||||||
|
;; <https://sourceware.org/bugzilla/show_bug.cgi?id=26634>
|
||||||
|
;; (glibc <= 2.32), pass the whole search path of
|
||||||
|
;; PROGRAM, which presumably is a superset of that
|
||||||
|
;; of the audit module.
|
||||||
(string-append "-DLOADER_AUDIT_RUNPATH={ "
|
(string-append "-DLOADER_AUDIT_RUNPATH={ "
|
||||||
(string-join
|
(string-join
|
||||||
(map object->string
|
(map object->string
|
||||||
(runpath
|
(runpath program))
|
||||||
#$(audit-module)))
|
|
||||||
", " 'suffix)
|
", " 'suffix)
|
||||||
"NULL }")
|
"NULL }")
|
||||||
(if gconv
|
(if gconv
|
||||||
|
|
Reference in a new issue