gnu: man-db: Simplify 'patch-test-shebangs' phase.

* gnu/packages/man.scm (man-db)[phases]{patch-test-shebangs}: Do not filter
nonexistent directories from find-files.
[modules]: Delete field.
This commit is contained in:
Maxim Cournoyer 2022-03-22 11:29:25 -04:00
parent 8e3d4f05df
commit 2f7ab8e373
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -146,8 +146,7 @@ (define-public man-db
(substitute* file (substitute* file
(("#! /bin/sh") (("#! /bin/sh")
(string-append "#!" (which "sh"))))) (string-append "#!" (which "sh")))))
(remove file-is-directory? (find-files "src/tests")))))
(find-files "src/tests" ".*"))))))
(add-after 'unpack 'patch-absolute-paths (add-after 'unpack 'patch-absolute-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/man.c" (substitute* "src/man.c"
@ -194,10 +193,7 @@ (define-public man-db
'("nroff" "eqn" "neqn" "tbl" "refer" "pic"))) '("nroff" "eqn" "neqn" "tbl" "refer" "pic")))
;; At run time we should refer to GROFF-MINIMAL, not GROFF (the latter ;; At run time we should refer to GROFF-MINIMAL, not GROFF (the latter
;; pulls in Perl.) ;; pulls in Perl.)
#:disallowed-references (list groff) #:disallowed-references (list groff)))
#:modules '((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1))))
(native-inputs (native-inputs
(list pkg-config flex (list pkg-config flex
;; Groff is needed at build time for troff, grops, soelim, etc. ;; Groff is needed at build time for troff, grops, soelim, etc.