From 457cd409b3527776e4177c26565de527bfbfc966 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 1 Sep 2000 12:47:04 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install')

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};
-- 
cgit v1.2.1