summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-02 21:17:46 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-02 22:46:23 +0100
commit2aa4fb5f73711e133751c1a9336ec67632a62452 (patch)
tree44920b3aef25ff0fb8e56c524aecb1765381b122
parenta974a0be5b6b8763b54ea23d4dea508898a82b21 (diff)
distro: gettext: Fix references to /bin/sh.
* distro/packages/gettext.scm (gettext): Add `patch-tests' phase.
-rw-r--r--distro/packages/gettext.scm15
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"))))