From 6edc5cab4f79941ad3b583631bb35be478281906 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 11 Jul 2008 09:04:32 +0000
Subject:   o sort the list of orphans

---
 NEWS            | 1 +
 urpm/orphans.pm | 2 +-
 urpme           | 2 +-
 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;
-- 
cgit v1.2.1