From 5a98bb67538f76f8cc004297a2251147df0eed08 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Dec 2007 16:22:58 +0000 Subject: - urpmi.update, urpmi.addmedia, urpmi.removemedia: o drop option "-c" which used to clean /var/cache/urpmi/headers since we don't use that dir anymore :) --- urpm.pm | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'urpm.pm') 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) = @_; -- cgit v1.2.1