diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-04-12 14:40:16 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-04-12 14:40:16 +0000 |
| commit | f767bf7493bd00eae8719d5c590ef0c7366fe59a (patch) | |
| tree | e9eda9c1697c3583194632466ec745daf960d097 /perl-install/install_steps.pm | |
| parent | 270af6008741d1a94b885668072eb5fc51b906bc (diff) | |
| download | drakx-f767bf7493bd00eae8719d5c590ef0c7366fe59a.tar drakx-f767bf7493bd00eae8719d5c590ef0c7366fe59a.tar.gz drakx-f767bf7493bd00eae8719d5c590ef0c7366fe59a.tar.bz2 drakx-f767bf7493bd00eae8719d5c590ef0c7366fe59a.tar.xz drakx-f767bf7493bd00eae8719d5c590ef0c7366fe59a.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index df669f465..cabd1e724 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -241,8 +241,8 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK! } #- small transaction will be built based on this selection and depslist. - my @toInstall = grep { pkgs::packageFlagSelected($_) && !pkgs::packageFlagInstalled($_) } values %{$packages->[0]}; - pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $o->{packages}[1], $o->{packages}[2]); + my @toInstall = pkgs::packagesToInstall($packages); + pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $packages->[1], $packages->[2]); } sub afterInstallPackages($) { |