diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-09-01 12:47:04 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-09-01 12:47:04 +0000 |
| commit | 457cd409b3527776e4177c26565de527bfbfc966 (patch) | |
| tree | 24e16b9d7c4dfc4cc7b77bc6410724a3a58bd6c0 | |
| parent | 0c928ac011478e29c10950a8f21e4bd7140e2a63 (diff) | |
| download | drakx-backup-do-not-use-457cd409b3527776e4177c26565de527bfbfc966.tar drakx-backup-do-not-use-457cd409b3527776e4177c26565de527bfbfc966.tar.gz drakx-backup-do-not-use-457cd409b3527776e4177c26565de527bfbfc966.tar.bz2 drakx-backup-do-not-use-457cd409b3527776e4177c26565de527bfbfc966.tar.xz drakx-backup-do-not-use-457cd409b3527776e4177c26565de527bfbfc966.zip | |
*** empty log message ***
| -rw-r--r-- | perl-install/install_steps.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 2d1cd8aa1..92b622fa8 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -298,6 +298,20 @@ sub pkg_install { $o->installPackages; } +sub pkg_install_if_requires_satisfied { + my ($o, @l) = @_; + require pkgs; + foreach (@l) { + my %newSelection; + my $pkg = pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found"; + pkgs::selectPackage($o->{packages}, $pkg, 0, \%newSelection) foreach @l; + if (scalar(keys %newSelection) == 1) { + pkg::selectPackage($o->{packages}, $pkg); + } + } + $o->installPackages; +} + sub installPackages($$) { #- complete REWORK, TODO and TOCHECK! my ($o) = @_; my $packages = $o->{packages}; |