summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/steps_auto_install.pm2
-rw-r--r--perl-install/install/steps_gtk.pm4
-rw-r--r--perl-install/install/steps_interactive.pm4
4 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index c85e26e61..9287b6ffb 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- remove unused parameter in installPackages
+ (fix passing interactive setting)
+
Version 12.34 - 24 April 2009
- do not set urpmi in automatic mode for gtk installs
diff --git a/perl-install/install/steps_auto_install.pm b/perl-install/install/steps_auto_install.pm
index dfaa5f0e3..b1e9a4771 100644
--- a/perl-install/install/steps_auto_install.pm
+++ b/perl-install/install/steps_auto_install.pm
@@ -132,7 +132,7 @@ sub errorInStep {
#-######################################################################################
sub installPackages {
my ($o, $packages) = @_;
- catch_cdie { $o->install::steps::installPackages($packages) } sub { print formatError($@), "\n"; 1 };
+ catch_cdie { $o->install::steps::installPackages } sub { print formatError($@), "\n"; 1 };
}
1;
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 694278119..9e9a55eef 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -526,7 +526,7 @@ sub beforeInstallPackages {
#------------------------------------------------------------------------------
sub installPackages {
- my ($o, $packages) = @_;
+ my ($o) = @_;
my ($current_total_size, $last_size, $nb, $total_size, $last_dtime, $_trans_progress_total);
@@ -631,7 +631,7 @@ sub installPackages {
}
};
my $install_result;
- catch_cdie { $install_result = $o->install::steps::installPackages($packages, 'interactive') }
+ catch_cdie { $install_result = $o->install::steps::installPackages('interactive') }
sub {
my $rc = install::steps_interactive::installPackages__handle_error($o, $_[0]);
$rc or $w->destroy;
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 27748413a..2719c2b48 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -628,7 +628,7 @@ sub reallyChooseGroups {
#------------------------------------------------------------------------------
sub installPackages {
- my ($o, $packages) = @_;
+ my ($o) = @_;
my ($current, $total) = (0, 0);
my ($_w, $wait_message) = $o->wait_message_with_progress_bar(N("Installing"));
@@ -646,7 +646,7 @@ sub installPackages {
};
my $install_result;
- catch_cdie { $install_result = $o->install::steps::installPackages($packages, 'interactive') }
+ catch_cdie { $install_result = $o->install::steps::installPackages('interactive') }
sub { installPackages__handle_error($o, $_[0]) };
if ($install::pkgs::cancel_install) {