gnu: lsh: Move generic patching to 'snippet'.
* gnu/packages/lsh.scm (lsh): Move generic patching to the 'snippet' field of 'origin'.
This commit is contained in:
parent
590e4154b6
commit
b846126052
@ -61,14 +61,32 @@ basis for almost any application.")
|
|||||||
(package
|
(package
|
||||||
(name "lsh")
|
(name "lsh")
|
||||||
(version "2.1")
|
(version "2.1")
|
||||||
(source
|
(source (origin
|
||||||
(origin
|
(method url-fetch)
|
||||||
(method url-fetch)
|
(uri (string-append "mirror://gnu/lsh/lsh-"
|
||||||
(uri (string-append "mirror://gnu/lsh/lsh-"
|
version ".tar.gz"))
|
||||||
version ".tar.gz"))
|
(sha256
|
||||||
(sha256
|
(base32
|
||||||
(base32
|
"1qqjy9zfzgny0rkb27c8c7dfsylvb6n0ld8h3an2r83pmaqr9gwb"))
|
||||||
"1qqjy9zfzgny0rkb27c8c7dfsylvb6n0ld8h3an2r83pmaqr9gwb"))))
|
(modules '((guix build utils)))
|
||||||
|
(snippet
|
||||||
|
'(begin
|
||||||
|
(use-modules (guix build utils))
|
||||||
|
|
||||||
|
(substitute* "src/testsuite/functions.sh"
|
||||||
|
(("localhost")
|
||||||
|
;; Avoid host name lookups since they don't work in
|
||||||
|
;; chroot builds.
|
||||||
|
"127.0.0.1")
|
||||||
|
(("set -e")
|
||||||
|
;; Make tests more verbose.
|
||||||
|
"set -e\nset -x"))
|
||||||
|
|
||||||
|
(substitute* (find-files "src/testsuite" "-test$")
|
||||||
|
(("localhost") "127.0.0.1"))
|
||||||
|
|
||||||
|
(substitute* "src/testsuite/login-auth-test"
|
||||||
|
(("/bin/cat") "cat"))))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("m4" ,m4)
|
`(("m4" ,m4)
|
||||||
@ -107,24 +125,7 @@ basis for almost any application.")
|
|||||||
sexp-conv "\"\n"))))
|
sexp-conv "\"\n"))))
|
||||||
|
|
||||||
;; Tests rely on $USER being set.
|
;; Tests rely on $USER being set.
|
||||||
(setenv "USER" "guix")
|
(setenv "USER" "guix"))
|
||||||
|
|
||||||
(substitute* "src/testsuite/functions.sh"
|
|
||||||
(("localhost")
|
|
||||||
;; Avoid host name lookups since they don't work in chroot
|
|
||||||
;; builds.
|
|
||||||
"127.0.0.1")
|
|
||||||
(("set -e")
|
|
||||||
;; Make tests more verbose.
|
|
||||||
"set -e\nset -x"))
|
|
||||||
|
|
||||||
(substitute* (find-files "src/testsuite" "-test$")
|
|
||||||
(("localhost") "127.0.0.1"))
|
|
||||||
|
|
||||||
(substitute* "src/testsuite/login-auth-test"
|
|
||||||
(("/bin/cat")
|
|
||||||
;; Use the right path to `cat'.
|
|
||||||
(which "cat"))))
|
|
||||||
%standard-phases)))
|
%standard-phases)))
|
||||||
(home-page "http://www.lysator.liu.se/~nisse/lsh/")
|
(home-page "http://www.lysator.liu.se/~nisse/lsh/")
|
||||||
(synopsis "GNU implementation of the Secure Shell (ssh) protocols")
|
(synopsis "GNU implementation of the Secure Shell (ssh) protocols")
|
||||||
|
Loading…
Reference in New Issue
Block a user