From a4c8c2887b280d319c3f4ebcbf7317be6316806f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Sep 2007 09:59:57 +0000 Subject: create _compute_diff_provides_of_removed_pkg() out of _unselect_package_deprecated_by_property() --- URPM/Resolve.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'URPM') diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 8102a8f..143165c 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -950,6 +950,14 @@ sub _unselect_package_deprecated_by_property { $obsoleted or ++$state->{oldpackage}; #- diff_provides on obsoleted provides are needed. + _compute_diff_provides_of_removed_pkg($urpm, $state, $diff_provides, $p); + }); +} + +#- side-effects: $diff_provides +sub _compute_diff_provides_of_removed_pkg { + my ($urpm, $state, $diff_provides, $p) = @_; + foreach ($p->provides) { #- check differential provides between obsoleted package and newer one. my ($pn, $ps) = property2name_range($_) or next; @@ -965,7 +973,6 @@ sub _unselect_package_deprecated_by_property { } } } - }); } #- side-effects: $properties -- cgit v1.2.1