summaryrefslogtreecommitdiffstats
path: root/urpm.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm.pm')
-rw-r--r--urpm.pm21
1 files changed, 0 insertions, 21 deletions
diff --git a/urpm.pm b/urpm.pm
index 5cd79dcd..d2d0c1bb 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -181,27 +181,6 @@ sub db_open_or_die {
$db;
}
-sub remove_obsolete_headers_in_cache {
- my ($urpm) = @_;
- my %headers;
- if (my $dh = urpm::sys::opendir_safe($urpm, "$urpm->{cachedir}/headers")) {
- local $_;
- while (defined($_ = readdir $dh)) {
- m|^([^/]*-[^-]*-[^-]*\.[^\.]*)(?::\S*)?$| and $headers{$1} = $_;
- }
- }
- if (%headers) {
- my $previous_total = scalar(keys %headers);
- foreach (@{$urpm->{depslist}}) {
- delete $headers{$_->fullname};
- }
- $urpm->{log}(N("found %d rpm headers in cache, removing %d obsolete headers", $previous_total, scalar(keys %headers)));
- foreach (values %headers) {
- unlink "$urpm->{cachedir}/headers/$_";
- }
- }
-}
-
#- register local packages for being installed, keep track of source.
sub register_rpms {
my ($urpm, @files) = @_;