10/10: gnu: hurd: Record the right file name of 'login'.

[guix-commits]

civodul pushed a commit to branch wip-hurd-vm
in repository guix.

commit ac209c70ff575c63130d6773a1b804112d6db454
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri Apr 3 23:12:10 2020 +0200

    gnu: hurd: Record the right file name of 'login'.
    
    * gnu/packages/hurd.scm (hurd)[arguments]: Add 'set-file-names' phase.
---
 gnu/packages/hurd.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 58d1293..8f08717 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -345,6 +345,13 @@ boot, since this cannot be done from GNU/Linux."
              (substitute* '("daemons/Makefile" "utils/Makefile")
                (("-o root -m 4755") ""))
              #t))
+         (add-before 'build 'set-file-names
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* '("daemons/runttys.c" "daemons/getty.c")
+                 (("/bin/login")
+                  (string-append out "/bin/login")))
+               #t)))
          (add-after 'install 'install-rc-file
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out  (assoc-ref outputs "out"))