me
/
guix
Archived
1
0
Fork 0
Code

gnu: mit-krb5: Remove label usage. 

* gnu/packages/kerberos.scm (mit-krb5)[arguments]: Use SEARCH-INPUT-FILE.
master
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 @@
(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.