Sort packages listed by pkg_list

[deb/packages.git] / lib / Packages / HTML.pm

diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 620053405de9a0b6e6ff5c61ffb4549c3125ccf7..eb38c723934fcd7d812bf7f9fb6d490a50cab28f 100644 (file)
--- 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 ) {