03/94: gnu: perl: Remove obsolete workaround.

[guix-commits]

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

commit c8817d11011dc85c8523daa9ba3ec4676ab37e8a
Author: Marius Bakke <address@hidden>
Date:   Fri Jun 21 17:49:32 2019 +0200

    gnu: perl: Remove obsolete workaround.
    
    * gnu/packages/perl.scm (perl)[arguments]: Remove phase
    "make-shared-objects-writable".
---
 gnu/packages/perl.scm | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 47eeb48..86bbeab 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -116,18 +116,6 @@
            (lambda* (#:key configure-flags #:allow-other-keys)
              (format #t "Perl configure flags: ~s~%" configure-flags)
              (apply invoke "./Configure" configure-flags)))
-         (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$"))
-              #t)))
-
          (add-after 'install 'remove-extra-references
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out     (assoc-ref outputs "out"))