summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-17 18:02:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-17 18:02:48 +0000
commit7816aecfbb31553ac048ce54c428be4594963f52 (patch)
treec358f8267544a329adfe45197d7d19d8cb25954f /perl-install
parentd51cac532bb2cad9d4fb22bcebe663411ac25ffe (diff)
downloaddrakx-backup-do-not-use-7816aecfbb31553ac048ce54c428be4594963f52.tar
drakx-backup-do-not-use-7816aecfbb31553ac048ce54c428be4594963f52.tar.gz
drakx-backup-do-not-use-7816aecfbb31553ac048ce54c428be4594963f52.tar.bz2
drakx-backup-do-not-use-7816aecfbb31553ac048ce54c428be4594963f52.tar.xz
drakx-backup-do-not-use-7816aecfbb31553ac048ce54c428be4594963f52.zip
(pkg_install_if_requires_satisfied): better logging
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm6
1 files changed, 5 insertions, 1 deletions
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;
}