diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:44:44 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:44:44 +0000 |
commit | 5271babefabbdbb93755b99b569fd57a110a4a43 (patch) | |
tree | 3158fe0272d45c6e2db4c89eda49b898786d0df2 /urpm/orphans.pm | |
parent | ab42bb2c05810a9ff9b799e99f381ed2700c21d3 (diff) | |
download | urpmi-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.pm | 6 |
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, |