get rid of $clicked and $ent_number (obsolete)

1 files changed, 5 insertions, 5 deletions

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 59f50ccdb..bb3c50e7b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -170,26 +170,26 @@ sub charsetChanged {
 #- Steps Functions
 #-######################################################################################
 sub selectLanguage {
-    my ($o, $first_time) = @_;
+    my ($o) = @_;
     $o->SUPER::selectLanguage;
   
     $o->ask_warn('',
 formatAlaTeX(N("Your system is low on resources. You may have some problem installing
 Mandriva Linux. If that occurs, you can try a text install instead. For this,
-press `F1' when booting on CDROM, then enter `text'."))) if $first_time && availableRamMB() < 70; # 70MB
+press `F1' when booting on CDROM, then enter `text'."))) if availableRamMB() < 70; # 70MB
 
 }
 
 #------------------------------------------------------------------------------
 sub selectMouse {
-    my ($o, $force) = @_;
+    my ($o) = @_;
     my %old = %{$o->{mouse}};
-    $o->SUPER::selectMouse($force) or return;
+    $o->SUPER::selectMouse or return;
     my $mouse = $o->{mouse};
     $mouse->{type} eq 'none' ||
       $old{type}   eq $mouse->{type}   && 
       $old{name}   eq $mouse->{name}   &&
-      $old{device} eq $mouse->{device} && !$force and return;
+      $old{device} eq $mouse->{device} and return;
 
     while (1) {
 	my $x_protocol_changed = mouse::change_mouse_live($mouse, \%old);