diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-09-10 14:11:53 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-09-10 14:11:53 +0000 |
| commit | 92f446697c1e6f2cc8ce693d135b501fe0e4e501 (patch) | |
| tree | e0774a97a67a1825ddff483d99919d9cd30c7481 /perl-install | |
| parent | acc835793ff7e47eb5e253714ae074369cd3ba17 (diff) | |
| download | drakx-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.pm | 8 |
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 |