X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FHTML.pm;h=eb38c723934fcd7d812bf7f9fb6d490a50cab28f;hb=9f051cb98c766053ff549284f4d8dddde476037a;hp=620053405de9a0b6e6ff5c61ffb4549c3125ccf7;hpb=202eb3b349348d04e15926777d7a3b7f8526c557;p=deb%2Fpackages.git

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 ) {