summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-12 23:40:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-12 23:40:48 +0000
commit2d92149a58246b77fc9427fbdd354baba4982a86 (patch)
tree485d2fa71681bf82ed4909b8b9bef56237a06608 /perl-install/install_steps_gtk.pm
parentbffb022e14866052364fb547cefd6cd6be87b14c (diff)
downloaddrakx-2d92149a58246b77fc9427fbdd354baba4982a86.tar
drakx-2d92149a58246b77fc9427fbdd354baba4982a86.tar.gz
drakx-2d92149a58246b77fc9427fbdd354baba4982a86.tar.bz2
drakx-2d92149a58246b77fc9427fbdd354baba4982a86.tar.xz
drakx-2d92149a58246b77fc9427fbdd354baba4982a86.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 42e017f81..5254cffa6 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -192,11 +192,9 @@ sub selectMouse {
eval { commands::modprobe("serial") } if $o->{mouse}{device} =~ /ttyS/;
$set->($o->{mouse}) unless $::testing;
-
- install_gtk::test_mouse($o->{mouse}) and return;
-
- $set->(\%old);
- goto &selectMouse;
+ }
+ if ($old{FULLNAME} ne $o->{mouse}{FULLNAME}) {
+ install_gtk::test_mouse($o->{mouse}) or goto &selectMouse;
}
}