~ruther/guix-local: gnu: glibc: Patch mtrace.pl to avoid retaining a reference to Perl.

2ed6aa9e398b99296144dca364012f41764a8e89 — Ludovic Courtès 12 years ago 1eefbb2

gnu: glibc: Patch mtrace.pl to avoid retaining a reference to Perl.

* gnu/packages/base.scm (glibc)[argument] <pre-configure phase>: Patch
  malloc/mtrace.pl.

patch browse .tar.gz

1 files changed, 11 insertions(+), 1 deletions(-)

M gnu/packages/base.scm

M gnu/packages/base.scm => gnu/packages/base.scm +11 -1

@@ 474,7 474,17 @@ library for working with executable and object formats is also included.")
                     ;; Same for `popen'.
                     (substitute* "libio/iopopen.c"
                       (("/bin/sh")
-                       (string-append out "/bin/bash")))))
+                       (string-append out "/bin/bash")))
+
+                    ;; Make sure we don't retain a reference to the
+                    ;; bootstrap Perl.
+                    (substitute* "malloc/mtrace.pl"
+                      (("^#!.*")
+                       ;; The shebang can be omitted, because there's the
+                       ;; "bilingual" eval/exec magic at the top of the file.
+                       "")
+                      (("exec @PERL@")
+                       "exec perl"))))
                 (alist-cons-after
                  'install 'install-locales
                  (lambda _