diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 15:19:10 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 15:19:10 +0000 |
commit | 6449b01c54f92dd22f346d729aed761acad9288f (patch) | |
tree | 4ca5b69577731ac9b6e44503054c36665b0d0a00 /URPM | |
parent | 2b8fca4ed6e4b28e6e8906e727ef268a3ccf9909 (diff) | |
download | perl-URPM-6449b01c54f92dd22f346d729aed761acad9288f.tar perl-URPM-6449b01c54f92dd22f346d729aed761acad9288f.tar.gz perl-URPM-6449b01c54f92dd22f346d729aed761acad9288f.tar.bz2 perl-URPM-6449b01c54f92dd22f346d729aed761acad9288f.tar.xz perl-URPM-6449b01c54f92dd22f346d729aed761acad9288f.zip |
hoist a debug message so that it occurs for other uses of
with_db_unsatisfied_requires()
Diffstat (limited to 'URPM')
-rw-r--r-- | URPM/Resolve.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 87a7abf..1618f27 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -287,6 +287,7 @@ sub with_db_unsatisfied_requires { $db->traverse_tag('whatrequires', [ $name ], sub { my ($p) = @_; if (my @l = $urpm->unsatisfied_requires($db, $state, $p, name => $name)) { + $urpm->{debug_URPM}($p->fullname . " is conflicting because of unsatisfied @l") if $urpm->{debug_URPM}; $do->($p, @l); } }); @@ -789,7 +790,6 @@ sub resolve_requested__no_suggests { my ($n, $pkg) = ($dep->{name}, $dep->{pkg}); with_db_unsatisfied_requires($urpm, $db, $state, $n, sub { my ($p, @l) = @_; - $urpm->{debug_URPM}($p->fullname . " is conflicting because of unsatisfied @l") if $urpm->{debug_URPM}; #- try if upgrading the package will be satisfying all the requires... #- there is no need to avoid promoting epoch as the package examined is not |