summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-01 12:47:04 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-01 12:47:04 +0000
commit457cd409b3527776e4177c26565de527bfbfc966 (patch)
tree24e16b9d7c4dfc4cc7b77bc6410724a3a58bd6c0
parent0c928ac011478e29c10950a8f21e4bd7140e2a63 (diff)
downloaddrakx-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.pm14
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};