summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-31 11:12:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-31 11:12:08 +0000
commitff238ca275243f27db6ac8d1511c5b8544186b1d (patch)
tree5555c83233b63058690d9178480984d0816fddb0 /perl-install/install_steps.pm
parentf964bbafe8f28c2204097382a5542bce9aab79d8 (diff)
downloaddrakx-backup-do-not-use-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar
drakx-backup-do-not-use-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.gz
drakx-backup-do-not-use-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.bz2
drakx-backup-do-not-use-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.xz
drakx-backup-do-not-use-ff238ca275243f27db6ac8d1511c5b8544186b1d.zip
instead of dirtying pkgs::installCallback, use install_steps::installCallback
(still not clean, but better)
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 3bb6d8644..606df646e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -432,18 +432,23 @@ sub pkg_install {
}
}
+sub installCallback {
+# my (undef, $msg, @para) = @_;
+# log::l("$msg: " . join(',', @para));
+}
+
sub installPackages { #- complete REWORK, TODO and TOCHECK!
my ($o) = @_;
my $packages = $o->{packages};
- pkgs::remove_marked_ask_remove($packages);
+ pkgs::remove_marked_ask_remove($packages, \&installCallback);
#- small transaction will be built based on this selection and depslist.
my @toInstall = pkgs::packagesToInstall($packages);
my $time = time();
$ENV{DURING_INSTALL} = 1;
- pkgs::install($o->{isUpgrade}, \@toInstall, $packages);
+ pkgs::install($o->{isUpgrade}, \@toInstall, $packages, \&installCallback);
any::writeandclean_ldsoconf($o->{prefix});
delete $ENV{DURING_INSTALL};