diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | urpm/orphans.pm | 2 | ||||
| -rw-r--r-- | urpme | 2 |
3 files changed, 3 insertions, 2 deletions
@@ -1,5 +1,6 @@ - urpme o add --justdb + o sort the list of orphans Version 6.1 - 10 July 2008, by Pascal "Pixel" Rigaux diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 766154a0..f68a680d 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -304,7 +304,7 @@ sub get_now_orphans_msg { P("The following package is now orphan, use \"urpme --auto-orphans\" to remove it.", "The following packages are now orphans, use \"urpme --auto-orphans\" to remove them.", scalar(@orphans)) - . "\n" . add_leading_spaces(join("\n", @orphans) . "\n"); + . "\n" . add_leading_spaces(join("\n", sort @orphans) . "\n"); } #- side-effects: none @@ -151,7 +151,7 @@ my $msg = . sprintf(" (%s)", formatXiB(-$urpm->selected_size($state))) . ":\n" . add_leading_spaces(urpm::select::translate_why_removed($urpm, $state, @toremove_no_orphans)) . "\n" . (@orphans ? P("(orphan package)", "(orphan packages)", scalar(@orphans)) . "\n" . - add_leading_spaces(join("\n", @orphans) . "\n") : ()); + add_leading_spaces(join("\n", sort @orphans) . "\n") : ()); if ($urpm->{options}{auto}) { $test and print STDOUT $msg; |