From 7816aecfbb31553ac048ce54c428be4594963f52 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 17 Mar 2001 18:02:48 +0000
Subject: (pkg_install_if_requires_satisfied): better logging

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

(limited to 'perl-install')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index a7323789b..ec8aa819b 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -328,7 +328,11 @@ sub pkg_install_if_requires_satisfied {
 	my %newSelection;
 	my $pkg = pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found";
 	pkgs::selectPackage($o->{packages}, $pkg, 0, \%newSelection);
-	scalar(keys %newSelection) == 1 and pkgs::selectPackage($o->{packages}, $pkg);
+	if (scalar(keys %newSelection) == 1) {
+	    pkgs::selectPackage($o->{packages}, $pkg);
+	} else {
+	    log::l("pkg_install_if_requires_satisfied: not selecting $_ because of ", join(", ", keys %newSelection));
+	}
     }
     $o->installPackages;
 }
-- 
cgit v1.2.1