diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-08-26 23:05:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-08-26 23:05:43 +0000 |
| commit | df970846d15afad574014d9bb00212035d1cc4f7 (patch) | |
| tree | 661745565d616e44a561f264458dad16faaaf53f /urpm/orphans.pm | |
| parent | 79cfa728dea726c404876d6430c0348f1dad767a (diff) | |
| download | urpmi-df970846d15afad574014d9bb00212035d1cc4f7.tar urpmi-df970846d15afad574014d9bb00212035d1cc4f7.tar.gz urpmi-df970846d15afad574014d9bb00212035d1cc4f7.tar.bz2 urpmi-df970846d15afad574014d9bb00212035d1cc4f7.tar.xz urpmi-df970846d15afad574014d9bb00212035d1cc4f7.zip | |
(_installed_req_and_unreq_and_update_unrequested_list) only write
the unrequested package list file if the list actually changed
(mga#7167)
Diffstat (limited to 'urpm/orphans.pm')
| -rw-r--r-- | urpm/orphans.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 9399f9e4..8f2553a6 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -100,8 +100,11 @@ sub _installed_req_and_unreq_and_update_unrequested_list { my ($unreq, $req) = partition { $unrequested->{$_->name} } @$pkgs; # update the list (to filter dups and now-removed-pkgs) + my @old = keys %$unrequested; my @new = map { $_->name } @$unreq; - _write_unrequested_list__file($urpm, \@new); + if (@new != @old) { + _write_unrequested_list__file($urpm, \@new); + } ($req, $unreq, $unrequested); } |