me
/
guix
Archived
1
0
Fork 0
Code

distro: gawk: Use the right shell instead of /bin/sh. 

* distro/packages/gawk.scm (gawk): Patch shell file name in io.c.
master
Ludovic Courtès 2012-12-20 17:59:10 +01:00
parent 8ccdbaa827
commit c20313637f
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
distro/packages/gawk.scm
View File

@ -35,11 +35,23 @@
(sha256 (sha256
(base32 "0sss7rhpvizi2a88h6giv0i7w5h07s2fxkw3s6n1hqvcnhrfgbb0")))) (base32 "0sss7rhpvizi2a88h6giv0i7w5h07s2fxkw3s6n1hqvcnhrfgbb0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (case-lambda (arguments
(case-lambda
((system) ((system)
(if (string=? system "i686-cygwin") `(#:parallel-tests? #f ; test suite fails in parallel
'(#:tests? #f) ; work around test failure on Cygwin
'(#:parallel-tests? #f))) ; test suite fails in parallel ;; Work around test failure on Cygwin.
#:tests? ,(not (string=? system "i686-cygwin"))
#:phases (alist-cons-before
'configure 'set-shell-file-name
(lambda* (#:key inputs #:allow-other-keys)
;; Refer to the right shell.
(let ((bash (assoc-ref inputs "bash")))
(substitute* "io.c"
(("/bin/sh")
(string-append bash "/bin/bash")))))
%standard-phases)))
((system cross-system) ((system cross-system)
'(#:parallel-tests? #f)))) '(#:parallel-tests? #f))))
(inputs `(("libsigsegv" ,libsigsegv) ; headers (inputs `(("libsigsegv" ,libsigsegv) ; headers