From 6d78ac32d9e302ac73ec39c864d66b52212531b2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 30 Aug 2001 21:34:52 +0000 Subject: disable gpm (in case of serial mouse) before service choice --- perl-install/Xconfigurator.pm | 1 - perl-install/install_steps.pm | 2 ++ 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 9bc685986..c37c3d39a 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1475,7 +1475,6 @@ _("I can set up your computer to automatically start X upon booting. Would you like X to start when you reboot?"), 1); any::runlevel($prefix, $run ? 5 : 3) unless $::testing; } - run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; } } diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index bc70fc3d8..5089beca0 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -413,6 +413,8 @@ Consoles 1,3,4,7 may also contain interesting information"; run_program::rooted($o->{prefix}, "chkconfig", "--add", $_) foreach qw(random netfs network rawdevices sound kheader usb keytable syslog crond portmap); + run_program::rooted($o->{prefix}, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/; + #- call update-menus at the end of package installation run_program::rooted($o->{prefix}, "update-menus"); -- cgit v1.2.1