diff options
author | Marius Bakke <marius@gnu.org> | 2022-06-26 02:36:05 +0200 |
---|---|---|
committer | Marius Bakke <marius@gnu.org> | 2022-06-26 12:06:30 +0200 |
commit | b148826f17b86ad2e5618e901f6da3a72da7a5fb (patch) | |
tree | 6e412c069a33a05ea2308a8ed72788d6c088cc83 | |
parent | a7117736e0359ad4e2c454e8dac8f3d9f6a80b1c (diff) | |
download | guix-b148826f17b86ad2e5618e901f6da3a72da7a5fb.tar.gz guix-b148826f17b86ad2e5618e901f6da3a72da7a5fb.zip |
gnu: mit-krb5: Remove label usage.
* gnu/packages/kerberos.scm (mit-krb5)[arguments]: Use SEARCH-INPUT-FILE.
-rw-r--r-- | gnu/packages/kerberos.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gnu/packages/kerberos.scm b/gnu/packages/kerberos.scm index 0f0bf30672..d96fa661d9 100644 --- a/gnu/packages/kerberos.scm +++ b/gnu/packages/kerberos.scm @@ -103,11 +103,13 @@ (chdir "src"))) (add-before 'check 'pre-check (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" - (("/bin/cat") (string-append perl "/bin/perl")) + (("/bin/cat") perl) (("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") (description "Massachusetts Institute of Technology implementation of Kerberos. |