diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-02 21:17:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-02 22:46:23 +0100 |
| commit | 2aa4fb5f73711e133751c1a9336ec67632a62452 (patch) | |
| tree | 44920b3aef25ff0fb8e56c524aecb1765381b122 | |
| parent | a974a0be5b6b8763b54ea23d4dea508898a82b21 (diff) | |
distro: gettext: Fix references to /bin/sh.
* distro/packages/gettext.scm (gettext): Add `patch-tests' phase.
| -rw-r--r-- | distro/packages/gettext.scm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/distro/packages/gettext.scm b/distro/packages/gettext.scm index a7b922f945..1ceae119f9 100644 --- a/distro/packages/gettext.scm +++ b/distro/packages/gettext.scm @@ -37,7 +37,20 @@ "1sa3ch12qxa4h3ya6hkz119yclcccmincl9j20dhrdx5mykp3b4k")))) (build-system gnu-build-system) (arguments - `(#:patches (list (assoc-ref %build-inputs "patch/gets")))) + `(#:patches (list (assoc-ref %build-inputs "patch/gets")) + #:phases (alist-cons-before + 'check 'patch-tests + (lambda* (#:key inputs #:allow-other-keys) + (let ((bash (assoc-ref inputs "bash"))) + (substitute* (find-files "gettext-tools/tests" + "^msgexec-[0-9]") + (("#![[:blank:]]/bin/sh") + (format #f "#!~a/bin/sh" bash))) + (substitute* (find-files "gettext-tools/gnulib-tests" + "posix_spawn") + (("/bin/sh") + (format #f "~a/bin/bash" bash))))) + %standard-phases))) (inputs `(("patch/gets" ,(search-patch "gettext-gets-undeclared.patch")))) |