summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 07:19:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 07:19:54 +0000
commitfb2cb652c7a8c84e23856b011ee2ab193eb70d64 (patch)
tree6d6b64aac8f7266d4cbb41267c096be02dd9c90b /perl-install
parent8fc41a1333f01496878ca0561f3ca1ad186b6d64 (diff)
downloaddrakx-fb2cb652c7a8c84e23856b011ee2ab193eb70d64.tar
drakx-fb2cb652c7a8c84e23856b011ee2ab193eb70d64.tar.gz
drakx-fb2cb652c7a8c84e23856b011ee2ab193eb70d64.tar.bz2
drakx-fb2cb652c7a8c84e23856b011ee2ab193eb70d64.tar.xz
drakx-fb2cb652c7a8c84e23856b011ee2ab193eb70d64.zip
dropping pkg_install_if_requires_satisfied() (old & unused)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm17
1 files changed, 0 insertions, 17 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 356541707..bbe1343ba 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -435,23 +435,6 @@ sub pkg_install {
}
}
-sub pkg_install_if_requires_satisfied {
- my ($o, @l) = @_;
- require pkgs;
- $o->{packages}{rpmdb} ||= pkgs::rpmDbOpen();
- foreach (@l) {
- my %newSelection;
- my $pkg = pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found";
- pkgs::selectPackage($o->{packages}, $pkg, 0, \%newSelection);
- 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;
-}
-
sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
my ($o) = @_;
my $packages = $o->{packages};