02/02: services: mingetty: Use '--nohangup'.

[Ludovic Courtès]

civodul pushed a commit to branch version-0.15.0
in repository guix.

commit a043b5b81a080c47e24298c80857919b9ea21bb2
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jul 5 00:11:45 2018 +0200

    services: mingetty: Use '--nohangup'.
    
    See the discussion at
    <https://lists.gnu.org/archive/html/guix-devel/2018-07/msg00049.html>.
    
    * gnu/services/base.scm (mingetty-shepherd-service): Pass "--nohangup"
    to mingetty.
---
 gnu/services/base.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 6841143..9fad9af 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -1113,7 +1113,14 @@ the tty to run, among other things."
 
        (start  #~(make-forkexec-constructor
                   (list #$(file-append mingetty "/sbin/mingetty")
-                        "--noclear" #$tty
+                        "--noclear"
+
+                        ;; Avoiding 'vhangup' allows us to avoid 'setfont'
+                        ;; errors down the path where various ioctls get
+                        ;; EIO--see 'hung_up_tty_ioctl' in driver/tty/tty_io.c
+                        ;; in Linux.
+                        "--nohangup" #$tty
+
                         #$@(if auto-login
                                #~("--autologin" #$auto-login)
                                #~())