From 4500581a7c212548a483e143b1dfafbffa3fd1c6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 5 Nov 2012 23:47:39 +0100
Subject: distro: readline: Allow stripping of the libraires.
* distro/packages/readline.scm (readline)[arguments]: Add `post-install'
phase to make libraries writable.
---
distro/packages/readline.scm | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
(limited to 'distro')
diff --git a/distro/packages/readline.scm b/distro/packages/readline.scm
index 6e423cb01f..6f54d32825 100644
--- a/distro/packages/readline.scm
+++ b/distro/packages/readline.scm
@@ -45,7 +45,21 @@
#:configure-flags
(list (string-append "LDFLAGS=-Wl,-rpath -Wl,"
(assoc-ref %build-inputs "ncurses")
- "/lib"))))
+ "/lib"))
+
+ #:phases (alist-cons-after
+ 'install 'post-install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib")))
+ ;; Make libraries writable so that `strip' can
+ ;; work. Failing to do that, it bails out with
+ ;; "Permission denied".
+ (for-each (lambda (f) (chmod f #o755))
+ (find-files lib "\\.so"))
+ (for-each (lambda (f) (chmod f #o644))
+ (find-files lib "\\.a"))))
+ %standard-phases)))
(synopsis "GNU Readline, a library for interactive line editing")
(description
"The GNU Readline library provides a set of functions for use by
--
cgit v1.2.3