diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-05-29 07:30:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-05-29 07:30:32 +0000 |
commit | ce597d6a01fda649be99c7fae25a0604bdefa23c (patch) | |
tree | b65380f6ae301ab9660d3d4728c48fec4eaef7be /urpm/install.pm | |
parent | ef337715b4b8124322d5bb458dc9686da7d8fb8b (diff) | |
download | urpmi-ce597d6a01fda649be99c7fae25a0604bdefa23c.tar urpmi-ce597d6a01fda649be99c7fae25a0604bdefa23c.tar.gz urpmi-ce597d6a01fda649be99c7fae25a0604bdefa23c.tar.bz2 urpmi-ce597d6a01fda649be99c7fae25a0604bdefa23c.tar.xz urpmi-ce597d6a01fda649be99c7fae25a0604bdefa23c.zip |
re-sync after the big svn loss
Diffstat (limited to 'urpm/install.pm')
-rw-r--r-- | urpm/install.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index e78f80a9..334555ce 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -176,10 +176,9 @@ sub install { #- don't clear cache if transaction failed. We might want to retry. if (@l == 0 && !$options{test} && $options{post_clean_cache}) { #- examine the local cache to delete packages which were part of this transaction - foreach (keys %$install, keys %$upgrade) { - my $pkg = $urpm->{depslist}[$_]; - unlink "$urpm->{cachedir}/rpms/" . $pkg->filename; - } + my @pkgs = map { $urpm->{depslist}[$_]->filename } keys %$install, keys %$upgrade; + $urpm->{log}(N("removing installed rpms (%s) from %s", join(' ', @pkgs), "$urpm->{cachedir}/rpms")); + unlink "$urpm->{cachedir}/rpms/$_" foreach @pkgs; } if ($::verbose >= 0) { |