From 4500581a7c212548a483e143b1dfafbffa3fd1c6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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/packages/readline.scm') 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 1.4.1