summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS1
-rw-r--r--urpm/orphans.pm2
-rw-r--r--urpme2
3 files changed, 3 insertions, 2 deletions
diff --git a/NEWS b/NEWS
index 00623c01..924ffaf4 100644
--- a/NEWS
+++ b/NEWS
@@ -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
diff --git a/urpme b/urpme
index 2550e889..46a3ec16 100644
--- a/urpme
+++ b/urpme
@@ -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;