From b148826f17b86ad2e5618e901f6da3a72da7a5fb Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sun, 26 Jun 2022 02:36:05 +0200 Subject: gnu: mit-krb5: Remove label usage. * gnu/packages/kerberos.scm (mit-krb5)[arguments]: Use SEARCH-INPUT-FILE. --- gnu/packages/kerberos.scm | 8 +++++--- 1 file 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. -- cgit v1.2.3