diff options
author | Christophe Fergeau <cfergeau@mandriva.com> | 2010-05-11 13:17:01 +0000 |
---|---|---|
committer | Christophe Fergeau <cfergeau@mandriva.com> | 2010-05-11 13:17:01 +0000 |
commit | 2da3c0c978f4ff748ff7085dc5a9817720f0360e (patch) | |
tree | 9e31f6f5d34705dd0c6a624b42c580bd61f6d31d | |
parent | f8e66061e6b9ff4be31ae264c732c6ea14bc9fa6 (diff) | |
download | urpmi-2da3c0c978f4ff748ff7085dc5a9817720f0360e.tar urpmi-2da3c0c978f4ff748ff7085dc5a9817720f0360e.tar.gz urpmi-2da3c0c978f4ff748ff7085dc5a9817720f0360e.tar.bz2 urpmi-2da3c0c978f4ff748ff7085dc5a9817720f0360e.tar.xz urpmi-2da3c0c978f4ff748ff7085dc5a9817720f0360e.zip |
perl_checker cleanups & annotations
-rw-r--r-- | urpm/orphans.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 7a3b0eab..5aef3c6d 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -356,6 +356,7 @@ sub _all_unrequested_orphans { $l{$pkg->name} = $pkg; push @{$provides{$_}}, $pkg foreach $pkg->provides_nosense; } + # (tv) FIXME: this won't work when chrooted: my $unreq_list = unrequested_list(); my $current_kernel = _get_current_kernel_package(); @@ -376,7 +377,7 @@ sub _all_unrequested_orphans { # add orphan kernels to the list: my $a = { _get_orphan_kernels() }; - add2hash_(\%l,$a); + add2hash_(\%l, $a); # do not offer to remove current kernel: delete $l{$current_kernel}; @@ -426,7 +427,8 @@ sub get_now_orphans_msg { my @orphans = map { scalar $_->fullname } @$orphans or return ''; P("The following package:\n%s\nis now orphaned, if you wish to remove it, you can use \"urpme --auto-orphans\"", - "The following packages:\n%s\nare now orphaned, if you wish to remove them, you can use \"urpme --auto-orphans\"",scalar(@orphans), add_leading_spaces(join("\n", sort @orphans)))."\n"; + "The following packages:\n%s\nare now orphaned, if you wish to remove them, you can use \"urpme --auto-orphans\"", + scalar(@orphans), add_leading_spaces(join("\n", sort @orphans))) . "\n"; } |