45/62: gnu: mit-krb5: Remove label usage.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit b148826f17b86ad2e5618e901f6da3a72da7a5fb
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Jun 26 02:36:05 2022 +0200

    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.