diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 11:12:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 11:12:08 +0000 |
| commit | ff238ca275243f27db6ac8d1511c5b8544186b1d (patch) | |
| tree | 5555c83233b63058690d9178480984d0816fddb0 /perl-install/install_steps.pm | |
| parent | f964bbafe8f28c2204097382a5542bce9aab79d8 (diff) | |
| download | drakx-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar drakx-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.gz drakx-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.bz2 drakx-ff238ca275243f27db6ac8d1511c5b8544186b1d.tar.xz drakx-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.pm | 9 |
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}; |