diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 471e322fe..088f3b0ba 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -181,7 +181,7 @@ sub selectInstallClass1 { sub selectMouse { my ($o, $force) = @_; my %old = %{$o->{mouse}}; - $o->SUPER::selectMouse($force); + $o->SUPER::selectMouse($force) or return; my $mouse = $o->{mouse}; $mouse->{type} eq 'none' || $old{type} eq $mouse->{type} && diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 30c26c283..e53ec8c5b 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -250,6 +250,7 @@ sub selectMouse { } if $o->{mouse}{device} eq "usbmouse"; $o->SUPER::selectMouse; + 1; } #------------------------------------------------------------------------------ sub setupSCSI { |