summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install2.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ce8954cc3..f841e44bd 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -541,7 +541,13 @@ sub main {
}
#- needed very early for install_steps_gtk
- eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe} && !$o->{mouse} && !$::testing;
+ unless ($::testing) {
+ if ($o->{mouse}) {
+ mouse::load_modules();
+ } else {
+ eval { $o->{mouse} = mouse::detect() } unless $o->{nomouseprobe};
+ }
+ }
$o->{locale}{lang} = lang::set($o->{locale}{lang}) if $o->{locale}{lang} ne 'en_US'; #- mainly for defcfg