diff options
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 8 |
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; } } |