nckx pushed a commit to branch master in repository guix. commit 7fae2063f8e118d50050dc3dde57941414bc2976 Author: Tobias Geerinckx-Rice <m...@tobias.gr> Date: Mon Aug 7 16:26:31 2017 +0200
gnu: sudo: Use ‘modify-phases’ syntax. * gnu/packages/admin.scm (sudo)[arguments]: Use ‘modify-phases’. --- gnu/packages/admin.scm | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index c4aa108..c0e5269 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -13,7 +13,7 @@ ;;; Copyright © 2016 Peter Feigl <peter.fe...@nexoid.at> ;;; Copyright © 2016 John J. Foerch <jjfoe...@earthlink.net> ;;; Copyright © 2016, 2017 ng0 <contact....@cryptolab.net> -;;; Copyright © 2016 Tobias Geerinckx-Rice <m...@tobias.gr> +;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <m...@tobias.gr> ;;; Copyright © 2016 John Darrington <j...@gnu.org> ;;; Copyright © 2017 Ben Sturmfels <b...@sturm.com.au> ;;; Copyright © 2017 Ethan R. Jones <doubleplusgoo...@gmail.com> @@ -849,29 +849,29 @@ system administrator.") ;; Avoid non-determinism; see <http://bugs.gnu.org/21918>. #:parallel-build? #f - #:phases (alist-cons-before - 'configure 'pre-configure - (lambda _ - (substitute* "src/sudo_usage.h.in" - ;; Do not capture 'configure' arguments since we would - ;; unduly retain references, and also because the - ;; CPPFLAGS above would close the string literal - ;; prematurely. - (("@CONFIGURE_ARGS@") "\"\"")) - (substitute* (find-files "." "Makefile\\.in") - (("-o [[:graph:]]+ -g [[:graph:]]+") - ;; Allow installation as non-root. - "") - (("^install: (.*)install-sudoers(.*)" _ before after) - ;; Don't try to create /etc/sudoers. - (string-append "install: " before after "\n")) - (("\\$\\(DESTDIR\\)\\$\\(rundir\\)") - ;; Don't try to create /run/sudo. - "$(TMPDIR)/dummy") - (("\\$\\(DESTDIR\\)\\$\\(vardir\\)") - ;; Don't try to create /var/db/sudo. - "$(TMPDIR)/dummy"))) - %standard-phases) + #:phases + (modify-phases %standard-phases + (add-before 'configure 'pre-configure + (lambda _ + (substitute* "src/sudo_usage.h.in" + ;; Do not capture 'configure' arguments since we would + ;; unduly retain references, and also because the + ;; CPPFLAGS above would close the string literal + ;; prematurely. + (("@CONFIGURE_ARGS@") "\"\"")) + (substitute* (find-files "." "Makefile\\.in") + (("-o [[:graph:]]+ -g [[:graph:]]+") + ;; Allow installation as non-root. + "") + (("^install: (.*)install-sudoers(.*)" _ before after) + ;; Don't try to create /etc/sudoers. + (string-append "install: " before after "\n")) + (("\\$\\(DESTDIR\\)\\$\\(rundir\\)") + ;; Don't try to create /run/sudo. + "$(TMPDIR)/dummy") + (("\\$\\(DESTDIR\\)\\$\\(vardir\\)") + ;; Don't try to create /var/db/sudo. + "$(TMPDIR)/dummy"))))) ;; XXX: The 'testsudoers' test series expects user 'root' to exist, but ;; the chroot's /etc/passwd doesn't have it. Turn off the tests.