summaryrefslogtreecommitdiffstats
path: root/urpm/select.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm/select.pm')
-rw-r--r--urpm/select.pm38
1 files changed, 0 insertions, 38 deletions
diff --git a/urpm/select.pm b/urpm/select.pm
index 495e81c7..0bca73ec 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -619,42 +619,4 @@ sub translate_why_removed_one {
$fullname . ($s ? "\n ($s)" : '');
}
-sub installed_packages_packed {
- my ($urpm) = @_;
-
- my $db = urpm::db_open_or_die_($urpm) or die "Can't open RPM db\n";
- my @l;
- $db->traverse(sub {
- my ($pkg) = @_;
- $pkg->pack_header;
- push @l, $pkg;
- });
- \@l;
-}
-
-sub installed_leaves {
- my ($urpm, $o_discard) = @_;
-
- my $packages = installed_packages_packed($urpm);
-
- my (%l, %provides);
- foreach my $pkg (@$packages) {
- next if $o_discard && $o_discard->($pkg);
- $l{$pkg->name} = $pkg;
- push @{$provides{$_}}, $pkg foreach $pkg->provides_nosense;
- }
-
- foreach my $pkg (@$packages) {
- foreach my $prop ($pkg->requires) {
- my $n = URPM::property2name($prop);
- foreach my $p (@{$provides{$n} || []}) {
- $p != $pkg && $p->provides_overlap($prop) and
- delete $l{$p->name};
- }
- }
- }
-
- \%l;
-}
-
1;