summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/install2.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 3170d17c4..c3fb2fe03 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -530,6 +530,11 @@ sub init_env_share() {
}
}
+sub init_mouse() {
+ eval { $o->{mouse} = mouse::detect($o->{modules_conf}) } if !$o->{mouse} && !$o->{nomouseprobe};
+ mouse::load_modules($o->{mouse});
+}
+
sub process_auto_steps() {
foreach (@::auto_steps) {
if (my $s = $o->{steps}{/::(.*)/ ? $1 : $_}) {
@@ -631,10 +636,7 @@ sub main {
devices::make('tty') if $o->{interactive} eq "curses";
#- needed very early for install::steps_gtk
- if (!$::testing) {
- eval { $o->{mouse} = mouse::detect($o->{modules_conf}) } if !$o->{mouse} && !$o->{nomouseprobe};
- mouse::load_modules($o->{mouse});
- }
+ init_mouse() if !$::testing;
#- for auto_install compatibility with old $o->{lang},
#- and also for --lang and --flang