diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-20 19:01:14 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-20 19:01:14 +0100 |
| commit | f5b7894942e91ae1cf01138f1ae81c140c9fab35 (patch) | |
| tree | 5dcb15c169104cf497a8fe4fb993fa6d56e46b82 | |
| parent | 42ff70e26263bfe4c55398a246a3ab0ad2b6200c (diff) | |
| download | guix-f5b7894942e91ae1cf01138f1ae81c140c9fab35.tar guix-f5b7894942e91ae1cf01138f1ae81c140c9fab35.tar.gz | |
distro: m4: Patch references to /bin/sh.
* distro/packages/m4.scm (m4): Add `pre-check' phase.
| -rw-r--r-- | distro/packages/m4.scm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/distro/packages/m4.scm b/distro/packages/m4.scm index 19243a8c2d..ec0e1a868c 100644 --- a/distro/packages/m4.scm +++ b/distro/packages/m4.scm @@ -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 |