summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-06 16:19:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-06 16:19:59 +0000
commit99bd0eed2382706ab7a730e6dda750c937d0c106 (patch)
tree3b72f119da3edaf8ce8534d0432086310b67d880
parentb208ad0f999b3e5802f5c99a962ddee959023885 (diff)
downloadurpmi-99bd0eed2382706ab7a730e6dda750c937d0c106.tar
urpmi-99bd0eed2382706ab7a730e6dda750c937d0c106.tar.gz
urpmi-99bd0eed2382706ab7a730e6dda750c937d0c106.tar.bz2
urpmi-99bd0eed2382706ab7a730e6dda750c937d0c106.tar.xz
urpmi-99bd0eed2382706ab7a730e6dda750c937d0c106.zip
give clearer name to some functions
-rw-r--r--urpm/orphans.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index e6d983e5..fc2d50a5 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -181,7 +181,7 @@ sub _unrequested_orphans_after_remove_once {
$p->provides_overlap($req) or return;
# cool, $p is "unrequested" and will potentially be newly unneeded
- if (_check_potential_unrequested_package_newly_unneeded($urpm, $db, $toremove, $p)) {
+ if (_will_package_be_unneeded($urpm, $db, $toremove, $p)) {
$urpm->{debug}("installed " . $p->fullname . " can now be removed") if $urpm->{debug};
return 1;
} else {
@@ -193,14 +193,14 @@ sub _unrequested_orphans_after_remove_once {
0;
}
#- side-effects: none
-sub _check_potential_unrequested_package_newly_unneeded {
+sub _will_package_be_unneeded {
my ($urpm, $db, $toremove, $pkg) = @_;
my $required_maybe_loop;
foreach my $prop ($pkg->provides) {
- _check_potential_unrequested_provide_newly_unneeded($urpm, $db, $toremove,
- scalar($pkg->fullname), $prop, \$required_maybe_loop)
+ _will_prop_still_be_needed($urpm, $db, $toremove,
+ scalar($pkg->fullname), $prop, \$required_maybe_loop)
and return;
}
@@ -213,15 +213,15 @@ sub _check_potential_unrequested_package_newly_unneeded {
$ignore{$pkg->fullname} = 1;
foreach my $prop (@provides) {
- _check_potential_unrequested_provide_newly_unneeded($urpm, $db, \%ignore,
- $fullname, $prop, \$required_maybe_loop)
+ _will_prop_still_be_needed($urpm, $db, \%ignore,
+ $fullname, $prop, \$required_maybe_loop)
and return;
}
}
1;
}
#- side-effects: none
-sub _check_potential_unrequested_provide_newly_unneeded {
+sub _will_prop_still_be_needed {
my ($urpm, $db, $toremove, $fullname, $prop, $required_maybe_loop) = @_;
my ($prov, $range) = URPM::property2name_range($prop) or return;