diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 07:19:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 07:19:54 +0000 |
| commit | fb2cb652c7a8c84e23856b011ee2ab193eb70d64 (patch) | |
| tree | 6d6b64aac8f7266d4cbb41267c096be02dd9c90b /perl-install | |
| parent | 8fc41a1333f01496878ca0561f3ca1ad186b6d64 (diff) | |
| download | drakx-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.pm | 17 |
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}; |