diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2009-01-06 16:19:59 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2009-01-06 16:19:59 +0000 |
commit | 99bd0eed2382706ab7a730e6dda750c937d0c106 (patch) | |
tree | 3b72f119da3edaf8ce8534d0432086310b67d880 | |
parent | b208ad0f999b3e5802f5c99a962ddee959023885 (diff) | |
download | urpmi-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.pm | 14 |
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; |