diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-13 22:08:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-13 22:51:56 +0200 |
| commit | 853c2f18e7c374cfd991bfc11832497e00349ed5 (patch) | |
| tree | eb280a055736c2eb5f647f3c0e22527ca94e9487 | |
| parent | 49607566e18069d4d24d830bb647206b7186d269 (diff) | |
| download | guix-853c2f18e7c374cfd991bfc11832497e00349ed5.tar.gz guix-853c2f18e7c374cfd991bfc11832497e00349ed5.tar.xz | |
gnu: e2fsprogs: Remove references to linux-libre-headers.
This removes the final linux-libre-headers and its references (including
bootstrap-binaries) from the closure.
* gnu/packages/linux.scm (e2fsprogs)[arguments]: Augment 'install-libs'
phase to make .a files writable.
| -rw-r--r-- | gnu/packages/linux.scm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 5da3979218..1ef473fbe4 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -577,8 +577,21 @@ slabtop, and skill.") (string-append "#!" (which "sh"))))) (alist-cons-after 'install 'install-libs - (lambda _ - (zero? (system* "make" "install-libs"))) + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (lib (string-append out "/lib"))) + (and (zero? (system* "make" "install-libs")) + + ;; Make the .a writable so that 'strip' works. + ;; Failing to do that, due to debug symbols, we + ;; retain a reference to the final + ;; linux-libre-headers, which refer to the + ;; bootstrap binaries. + (let ((archives (find-files lib "\\.a$"))) + (for-each (lambda (file) + (chmod file #o666)) + archives) + #t)))) %standard-phases)) ;; FIXME: Tests work by comparing the stdout/stderr of programs, that |