diff options
| -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}; |