02/02: gnu: kmod: Remove libtool archives.

[guix-commits]

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

commit b6540bd285cbe5920ad379ddfc6256359ee7204c
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Mar 11 11:24:35 2024 -0400

    gnu: kmod: Remove libtool archives.
    
    * gnu/packages/linux.scm (kmod) [arguments]
    <remove-libtool-archives>: New phase.
    
    Change-Id: I95acea45f27bf1d7fef0591cb5b6a60b0e6a67c4
---
 gnu/packages/linux.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index bd2bdec5e9..0ff84a4eb8 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -4241,7 +4241,16 @@ to use Linux' inotify mechanism, which allows file 
accesses to be monitored.")
                                (symlink "kmod"
                                         (string-append #$output "/bin/" tool)))
                              '("insmod" "rmmod" "lsmod" "modprobe"
-                               "modinfo" "depmod")))))))
+                               "modinfo" "depmod"))))
+               (add-after 'install 'remove-libtool-archives
+                 ;; Libtool archives lists the whole transitive dependencies,
+                 ;; which is unnecessary unless producing static archives and
+                 ;; leads to overlinking, e.g. causing the build of
+                 ;; libblockdev to fail due to attempting to link with zstd.
+                 (lambda _
+                   (for-each delete-file
+                             (find-files (string-append #$output "/lib")
+                                         "\\.la$")))))))
     (native-inputs (list pkg-config zstd)) ;zstd needed for tests
     (inputs (list xz zlib `(,zstd "lib")))
     (supported-systems (delete "i586-gnu" %supported-systems))