summaryrefslogtreecommitdiffstats
path: root/urpm/orphans.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-08-31 16:44:44 +0000
committerThierry Vignaud <tv@mageia.org>2012-08-31 16:44:44 +0000
commit5271babefabbdbb93755b99b569fd57a110a4a43 (patch)
tree3158fe0272d45c6e2db4c89eda49b898786d0df2 /urpm/orphans.pm
parentab42bb2c05810a9ff9b799e99f381ed2700c21d3 (diff)
downloadurpmi-5271babefabbdbb93755b99b569fd57a110a4a43.tar
urpmi-5271babefabbdbb93755b99b569fd57a110a4a43.tar.gz
urpmi-5271babefabbdbb93755b99b569fd57a110a4a43.tar.bz2
urpmi-5271babefabbdbb93755b99b569fd57a110a4a43.tar.xz
urpmi-5271babefabbdbb93755b99b569fd57a110a4a43.zip
add missing spacing
Diffstat (limited to 'urpm/orphans.pm')
-rw-r--r--urpm/orphans.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 8f2553a6..c3a7a234 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -28,6 +28,7 @@ sub unrequested_list__file {
my ($urpm) = @_;
($urpm->{env_dir} || "$urpm->{root}/var/lib/rpm") . '/installed-through-deps.list';
}
+
#- side-effects: none
sub unrequested_list {
my ($urpm) = @_;
@@ -68,6 +69,7 @@ sub _installed_req_and_unreq {
my ($req, $unreq, $_unrequested) = _installed_req_and_unreq_and_update_unrequested_list($urpm);
($req, $unreq);
}
+
#- side-effects:
#- + those of _installed_req_and_unreq_and_update_unrequested_list (<root>/var/lib/rpm/installed-through-deps.list)
sub _installed_and_unrequested_lists {
@@ -157,6 +159,7 @@ sub _renamed_unrequested {
}
%l;
}
+
sub new_unrequested {
my ($urpm, $state) = @_;
(
@@ -164,6 +167,7 @@ sub new_unrequested {
_renamed_unrequested($urpm, $state->{selected}, $state->{rejected}),
);
}
+
#- side-effects: <root>/var/lib/rpm/installed-through-deps.list
sub add_unrequested {
my ($urpm, $state) = @_;
@@ -198,6 +202,7 @@ sub unrequested_orphans_after_remove {
my %toremove = map { $_ => 1 } @$toremove;
_unrequested_orphans_after_remove_once($urpm, $db, unrequested_list($urpm), \%toremove);
}
+
#- side-effects: none
sub _unrequested_orphans_after_remove_once {
my ($urpm, $db, $unrequested, $toremove) = @_;
@@ -233,6 +238,7 @@ sub _unrequested_orphans_after_remove_once {
}
0;
}
+
#- return true if $pkg will no more be required after removing $toremove
#-
#- nb: it may wrongly return false for complex loops,