04/08: gnu: perl: Strip the DSOs.

[Ludovic Courtès]

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

commit 696062b1f06194f6c276ff6889ce2f19b1755eaf
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jun 4 11:24:07 2015 +0200

    gnu: perl: Strip the DSOs.
    
    * gnu/packages/perl.scm (perl)[arguments]: Add 
'make-shared-objects-writable'
      phase.
---
 gnu/packages/perl.scm |   13 ++++++++++++-
 1 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 5ace05d..09e5757 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -72,7 +72,18 @@
                         "-Dinstallstyle=lib/perl5"
                         "-Duseshrplib"
                         (string-append "-Dlocincpth=" libc "/include")
-                        (string-append "-Dloclibpth=" libc "/lib")))))))))
+                        (string-append "-Dloclibpth=" libc "/lib"))))))
+
+         (add-before
+          'strip 'make-shared-objects-writable
+          (lambda* (#:key outputs #:allow-other-keys)
+            ;; The 'lib/perl5' directory contains ~50 MiB of .so.  Make them
+            ;; writable so that 'strip' actually strips them.
+            (let* ((out (assoc-ref outputs "out"))
+                   (lib (string-append out "/lib")))
+              (for-each (lambda (dso)
+                          (chmod dso #o755))
+                        (find-files lib "\\.so$"))))))))
     (native-search-paths (list (search-path-specification
                                 (variable "PERL5LIB")
                                 (files '("lib/perl5/site_perl")))))