04/05: gnu: openssl: Allow shared objects to be stripped.

[Ludovic Courtès]

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

commit fe8199a80c1bfded8f1563fd61f1e95ae3ac60fb
Author: Ludovic Courtès <address@hidden>
Date:   Wed Sep 9 18:30:34 2015 +0200

    gnu: openssl: Allow shared objects to be stripped.
    
    * gnu/packages/tls.scm (openssl)[arguments]: Add
      'make-libraries-writable' phase.
---
 gnu/packages/tls.scm |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 0bce6e1..e7baa52 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -237,6 +237,16 @@ required structures.")
                                   (string-prefix? "armhf" (%current-system)))
                              '("-mfpu=vfpv3")
                              '()))))))
+        (add-after
+         'install 'make-libraries-writable
+         (lambda* (#:key outputs #:allow-other-keys)
+           ;; Make libraries writable so that 'strip' does its job.
+           (let ((out (assoc-ref outputs "out")))
+             (for-each (lambda (file)
+                         (chmod file #o644))
+                       (find-files (string-append out "/lib")
+                                   "\\.so"))
+             #t)))
         (add-before
          'patch-source-shebangs 'patch-tests
          (lambda* (#:key inputs native-inputs #:allow-other-keys)