summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-09-10 14:11:53 +0000
committerFrancois Pons <fpons@mandriva.com>2003-09-10 14:11:53 +0000
commit92f446697c1e6f2cc8ce693d135b501fe0e4e501 (patch)
treee0774a97a67a1825ddff483d99919d9cd30c7481 /perl-install
parentacc835793ff7e47eb5e253714ae074369cd3ba17 (diff)
downloaddrakx-92f446697c1e6f2cc8ce693d135b501fe0e4e501.tar
drakx-92f446697c1e6f2cc8ce693d135b501fe0e4e501.tar.gz
drakx-92f446697c1e6f2cc8ce693d135b501fe0e4e501.tar.bz2
drakx-92f446697c1e6f2cc8ce693d135b501fe0e4e501.tar.xz
drakx-92f446697c1e6f2cc8ce693d135b501fe0e4e501.zip
make sure mouse modules are loaded before using them (usefull for defcfg or recovery).
Diffstat (limited to 'perl-install')
-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