1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index e82bba86a..80d82a4e4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -819,6 +819,14 @@ sub write_passwd_user {
     } "$prefix/etc/passwd";
 }
 
+sub set_login_serial_console {
+    my ($prefix, $port, $speed) = @_;
+
+    my $line = "s$port:12345:respawn:/sbin/getty ttyS$port DT$speed ansi\n";
+    substInFile { s/^s$port:.*//; $_ = "$line" if eof } "$prefix/etc/inittab";
+}
+
+
 sub runlevel {
     my ($prefix, $runlevel) = @_;
     my $f = "$prefix/etc/inittab";