diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 13:07:47 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 13:07:47 +0000 |
commit | 2c31763d63d98a15423e157ff88831adcf8faefc (patch) | |
tree | bb287c727b394ea43db469f6a9ef679e912379dc | |
parent | 80c7953e3bf9f5b31d0b763deaed09551db907b9 (diff) | |
download | perl-URPM-2c31763d63d98a15423e157ff88831adcf8faefc.tar perl-URPM-2c31763d63d98a15423e157ff88831adcf8faefc.tar.gz perl-URPM-2c31763d63d98a15423e157ff88831adcf8faefc.tar.bz2 perl-URPM-2c31763d63d98a15423e157ff88831adcf8faefc.tar.xz perl-URPM-2c31763d63d98a15423e157ff88831adcf8faefc.zip |
simplify
-rw-r--r-- | URPM/Resolve.pm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index a3e60dc..31f5c88 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -546,10 +546,11 @@ sub resolve_rejected_ { #- check if the package has already been asked to be rejected (removed or obsoleted). #- this means only add the new reason and return. - if (! $state->{rejected}{$pkg->fullname}) { - my @pkgs_todo = $pkg; + my $newly_rejected = set_rejected($state, $pkg, %options); + + $newly_rejected or return; - set_rejected($state, $pkg, %options); + my @pkgs_todo = $pkg; while (my $cp = shift @pkgs_todo) { #- close what requires this property, but check with selected package requiring old properties. @@ -580,11 +581,6 @@ sub resolve_rejected_ { }); } } - } else { - #- the package has already been rejected. - #- but do update {closure} and {required}, {obsoleted} - set_rejected($state, $pkg, %options); - } } # see resolve_requested__no_suggests below for information about usage |