diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 15:30:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 15:30:36 +0000 |
commit | 1404e82cabc32a61055872334a02cc0c31197265 (patch) | |
tree | 07eceabb9b4cb2c4f175d01f152aacf43829ec87 /URPM | |
parent | 6449b01c54f92dd22f346d729aed761acad9288f (diff) | |
download | perl-URPM-1404e82cabc32a61055872334a02cc0c31197265.tar perl-URPM-1404e82cabc32a61055872334a02cc0c31197265.tar.gz perl-URPM-1404e82cabc32a61055872334a02cc0c31197265.tar.bz2 perl-URPM-1404e82cabc32a61055872334a02cc0c31197265.tar.xz perl-URPM-1404e82cabc32a61055872334a02cc0c31197265.zip |
simplify: whatrequires is a hash with provides_nosense as key, don't need to
use ->provides then remove the sense
Diffstat (limited to 'URPM')
-rw-r--r-- | URPM/Resolve.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 1618f27..0800441 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -429,8 +429,7 @@ sub resolve_rejected { while (my $cp = shift @closure) { #- close what requires this property, but check with selected package requiring old properties. - foreach ($cp->provides) { - if (my ($n) = /^([^\s\[]*)/) { + foreach my $n ($cp->provides_nosense) { foreach (keys %{$state->{whatrequires}{$n} || {}}) { my $pkg = $urpm->{depslist}[$_] or next; if (my @l = $urpm->unsatisfied_requires($db, $state, $pkg, name => $n)) { @@ -460,7 +459,6 @@ sub resolve_rejected { $p->pack_header; #- need to pack else package is no longer visible... push @closure, $p; }); - } } } } else { |