diff options
Diffstat (limited to 'gnu/packages/librewolf.scm')
| -rw-r--r-- | gnu/packages/librewolf.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/packages/librewolf.scm b/gnu/packages/librewolf.scm index 6c852d7f1c2..f8800b19252 100644 --- a/gnu/packages/librewolf.scm +++ b/gnu/packages/librewolf.scm | |||
| @@ -530,11 +530,15 @@ | |||
| 530 | ;; The following two functions are from Guix's icecat package in | 530 | ;; The following two functions are from Guix's icecat package in |
| 531 | ;; (gnu packages gnuzilla). See commit | 531 | ;; (gnu packages gnuzilla). See commit |
| 532 | ;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b. | 532 | ;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b. |
| 533 | (define (runpath-of lib) | ||
| 534 | (call-with-input-file lib | ||
| 535 | (compose elf-dynamic-info-runpath elf-dynamic-info | ||
| 536 | parse-elf get-bytevector-all))) | ||
| 533 | (define (runpaths-of-input label) | 537 | (define (runpaths-of-input label) |
| 534 | (let* ((dir (string-append (assoc-ref inputs label) | 538 | (let* ((dir (string-append (assoc-ref inputs label) |
| 535 | "/lib")) | 539 | "/lib")) |
| 536 | (libs (find-files dir "\\.so$"))) | 540 | (libs (find-files dir "\\.so$"))) |
| 537 | (append-map file-runpath libs))) | 541 | (append-map runpath-of libs))) |
| 538 | (let* ((out (assoc-ref outputs "out")) | 542 | (let* ((out (assoc-ref outputs "out")) |
| 539 | (lib (string-append out "/lib")) | 543 | (lib (string-append out "/lib")) |
| 540 | (libs (map | 544 | (libs (map |
