From 9f051cb98c766053ff549284f4d8dddde476037a Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Fri, 24 Feb 2006 13:17:52 +0000
Subject: [PATCH] Sort packages listed by pkg_list

---
 lib/Packages/HTML.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 6200534..eb38c72 100644
--- a/lib/Packages/HTML.pm
+++ b/lib/Packages/HTML.pm
@@ -82,8 +82,10 @@ sub pkg_list {
     my $suite = $opts->{suite}[0];
 
     my $str = "";
-    foreach my $p ( @$pkgs ) {
+    foreach my $p ( sort @$pkgs ) {
 
+	# we don't deal with virtual packages here because for the
+	# current uses of this function this isn't needed
 	my $short_desc = (read_entry_simple( $packages, $p, $opts->{h_archives}, $suite))->[-1];
 
 	if ( $short_desc ) {
-- 
2.39.2