diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2009-01-06 16:14:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2009-01-06 16:14:36 +0000 |
commit | b208ad0f999b3e5802f5c99a962ddee959023885 (patch) | |
tree | 59f173358e7d82a2b140f0dfa4e824812279ac5b /urpm | |
parent | cb09c52cea3231512fd51b747ae33bb99b6223c1 (diff) | |
download | urpmi-b208ad0f999b3e5802f5c99a962ddee959023885.tar urpmi-b208ad0f999b3e5802f5c99a962ddee959023885.tar.gz urpmi-b208ad0f999b3e5802f5c99a962ddee959023885.tar.bz2 urpmi-b208ad0f999b3e5802f5c99a962ddee959023885.tar.xz urpmi-b208ad0f999b3e5802f5c99a962ddee959023885.zip |
enhance doc
Diffstat (limited to 'urpm')
-rw-r--r-- | urpm/orphans.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index b1e277f8..e6d983e5 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -161,6 +161,7 @@ sub unrequested_orphans_after_remove { sub _unrequested_orphans_after_remove_once { my ($urpm, $db, $unrequested, $toremove) = @_; + # first we get the list of requires/suggests that may be unneeded after removing $toremove my @requires; foreach my $fn (keys %$toremove) { my ($n) = $fn =~ $fullname2name_re; @@ -179,7 +180,7 @@ sub _unrequested_orphans_after_remove_once { $unrequested->{$p->name} or return; $p->provides_overlap($req) or return; - # cool we have a "unrequested" package that will potentially be unneeded + # cool, $p is "unrequested" and will potentially be newly unneeded if (_check_potential_unrequested_package_newly_unneeded($urpm, $db, $toremove, $p)) { $urpm->{debug}("installed " . $p->fullname . " can now be removed") if $urpm->{debug}; return 1; |