ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-28 14:01:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mit-krb5: Remove label usage.

Browse source 
* gnu/packages/kerberos.scm (mit-krb5)[arguments]: Use SEARCH-INPUT-FILE.
This commit is contained in:
Marius Bakke 2022-06-26 02:36:05 +02:00
parent a7117736e0
commit b148826f17
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/kerberos.scm
View file

@ -103,11 +103,13 @@ (define-public mit-krb5
(chdir "src"))) (chdir "src")))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(let ((perl (assoc-ref (or native-inputs inputs) "perl"))) (let ((perl (search-input-file (or native-inputs inputs)
"bin/perl")))
(substitute* "plugins/kdb/db2/libdb2/test/run.test" (substitute* "plugins/kdb/db2/libdb2/test/run.test"
(("/bin/cat") (string-append perl "/bin/perl")) (("/bin/cat") perl)
(("D/bin/sh") (string-append "D" (which "sh"))) (("D/bin/sh") (string-append "D" (which "sh")))
(("bindir=/bin/.") (string-append "bindir=" perl "/bin"))))))))) (("bindir=/bin/.") (string-append "bindir="
(dirname perl))))))))))
(synopsis "MIT Kerberos 5") (synopsis "MIT Kerberos 5")
(description (description
"Massachusetts Institute of Technology implementation of Kerberos. "Massachusetts Institute of Technology implementation of Kerberos.