futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: ngircd: Use ‘modify-phases’ syntax.

Browse Source 
* gnu/packages/messaging.scm (ngircd)[arguments]: Use ‘modify-phases’.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-20 22:32:58 +01:00
parent 4fd95d9170
commit 341ed63f47
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
gnu/packages/messaging.scm
View File

@ -235,28 +235,27 @@ dictionaries. HexChat can be extended with multiple addons.")
'("--with-pam") '("--with-pam")
'())) '()))
#:phases #:phases
;; Necessary for the test suite. (modify-phases %standard-phases
(alist-cons-after ;; Necessary for the test suite.
'configure 'post-configure (add-after 'configure 'post-configure
(lambda _ (lambda _
(substitute* "src/ngircd/Makefile" (substitute* "src/ngircd/Makefile"
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
;; The default getpid.sh does a sloppy grep over 'ps -ax' output, ;; The default getpid.sh does a sloppy grep over 'ps -ax' output,
;; which fails arbitrarily. ;; which fails arbitrarily.
(with-output-to-file "src/testsuite/getpid.sh" (with-output-to-file "src/testsuite/getpid.sh"
(lambda () (lambda ()
(display (display
(string-append (string-append
"#!" (which "sh") "\n" "#!" (which "sh") "\n"
"ps -C \"$1\" -o pid=\n")))) "ps -C \"$1\" -o pid=\n"))))
;; Our variant of getpid.sh does not work for interpreter names if a ;; Our variant of getpid.sh does not match interpreter names
;; shebang script is run directly as "./foo", so patch cases where ;; when the script's shebang is invoked directly as "./foo".
;; the test suite relies on this. ;; Patch cases where the test suite relies on this.
(substitute* "src/testsuite/start-server.sh" (substitute* "src/testsuite/start-server.sh"
;; It runs 'getpid.sh sh' to test if it works at all. Run it on ;; It runs 'getpid.sh sh' to test if it works at all. Run it on
;; 'make' instead. ;; 'make' instead.
(("getpid.sh sh") "getpid.sh make"))) (("getpid.sh sh") "getpid.sh make")))))))
%standard-phases)))
(home-page "http://ngircd.barton.de/") (home-page "http://ngircd.barton.de/")
(synopsis "Lightweight Internet Relay Chat server for small networks") (synopsis "Lightweight Internet Relay Chat server for small networks")
(description (description