ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ld-wrapper: Add 'GUIX_LD_WRAPPER_DISABLE_RPATH' environment variable.

Browse source 
* gnu/packages/ld-wrapper.scm (%disable-rpath?): New variable.
  (rpath-arguments): Honor it.
This commit is contained in:
Ludovic Courtès 2015-04-07 10:29:51 +02:00
parent 51d0cd9b38
commit 71b6716814
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/ld-wrapper.scm
View file

@ -82,6 +82,10 @@ (define %debug?
;; Whether to emit debugging output. ;; Whether to emit debugging output.
(getenv "GUIX_LD_WRAPPER_DEBUG")) (getenv "GUIX_LD_WRAPPER_DEBUG"))
(define %disable-rpath?
;; Whether to disable automatic '-rpath' addition.
(getenv "GUIX_LD_WRAPPER_DISABLE_RPATH"))
(define (readlink* file) (define (readlink* file)
;; Call 'readlink' until the result is not a symlink. ;; Call 'readlink' until the result is not a symlink.
(define %max-symlink-depth 50) (define %max-symlink-depth 50)
@ -176,7 +180,8 @@ (define (rpath-arguments library-files)
;; want to add '-rpath' for files under %BUILD-DIRECTORY or ;; want to add '-rpath' for files under %BUILD-DIRECTORY or
;; %TEMPORARY-DIRECTORY because that could leak to installed ;; %TEMPORARY-DIRECTORY because that could leak to installed
;; files. ;; files.
(cond ((store-file-name? file) (cond ((and (not %disable-rpath?)
(store-file-name? file))
(cons* "-rpath" (dirname file) args)) (cons* "-rpath" (dirname file) args))
((or %allow-impurities? ((or %allow-impurities?
(pure-file-name? file)) (pure-file-name? file))