~ruther/guix-local

f5b7894942e91ae1cf01138f1ae81c140c9fab35 — Ludovic Courtès 13 years ago 42ff70e
distro: m4: Patch references to /bin/sh.

* distro/packages/m4.scm (m4): Add `pre-check' phase.
1 files changed, 13 insertions(+), 1 deletions(-)

M distro/packages/m4.scm
M distro/packages/m4.scm => distro/packages/m4.scm +13 -1
@@ 46,7 46,19 @@
                   #:patches (list (assoc-ref %build-inputs "patch/s_isdir")
                                   (assoc-ref %build-inputs
                                              "patch/readlink-EINVAL")
                                   (assoc-ref %build-inputs "patch/gets"))))
                                   (assoc-ref %build-inputs "patch/gets"))
                   #:phases (alist-cons-before
                             'check 'pre-check
                             (lambda* (#:key inputs #:allow-other-keys)
                               ;; Fix references to /bin/sh.
                               (let ((bash (assoc-ref inputs "bash")))
                                 (for-each patch-shebang
                                           (find-files "tests" "\\.sh$"))
                                 (substitute* (find-files "tests"
                                                          "posix_spawn")
                                   (("/bin/sh")
                                    (format #f "~a/bin/bash" bash)))))
                             %standard-phases)))
                ((system cross-system)
                 `(#:patches (list (assoc-ref %build-inputs "patch/s_isdir")
                                   (assoc-ref %build-inputs