01/05: gnu: libbsd: Embed absolute references to libmd.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit ae406b91e2aecf2a7c45c456d7e0f4dfd0aeb928
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sat Sep 10 19:21:39 2022 +0200

    gnu: libbsd: Embed absolute references to libmd.
    
    * gnu/packages/libbsd.scm (libbsd)[arguments]: Add phase to embed absolute
    libmd references.
---
 gnu/packages/libbsd.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/libbsd.scm b/gnu/packages/libbsd.scm
index 9759d1b5ad..79f1389081 100644
--- a/gnu/packages/libbsd.scm
+++ b/gnu/packages/libbsd.scm
@@ -40,6 +40,23 @@
     (arguments
      (list #:configure-flags #~'("--disable-static")
            #:phases #~(modify-phases %standard-phases
+                        (add-after 'install 'embed-absolute-libmd-references
+                          (lambda* (#:key inputs #:allow-other-keys)
+                            (let ((libmd (search-input-file inputs
+                                                            "lib/libmd.so")))
+                              ;; Add absolute references to libmd so it
+                              ;; does not need to be propagated.
+                              (with-directory-excursion #$output
+                                (substitute* "lib/libbsd.so"
+                                  (("^GROUP")
+                                   (string-append "SEARCH_DIR("
+                                                  (dirname libmd)
+                                                  ")\nGROUP")))
+                                (substitute* (find-files "lib/pkgconfig"
+                                                         "\\.pc$")
+                                  (("-lmd")
+                                   (string-append "-L" (dirname libmd)
+                                                  " -lmd")))))))
                         (add-before 'check 'disable-pwcache-test
                           (lambda _
                             ;; This test expects the presence of a root