create_index_pages: Sort sections alphabetically by name

[deb/packages.git] / bin / create_index_pages

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 6d08d60c554020364d22b462a80c8fa610ea5388..0cc0bf8fe3cd0ce2e43d03e3f9a1a3531d0c2b2a 100755 (executable)
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -63,7 +63,7 @@ foreach my $s (@SUITES) {
        my %content = ( subsections => [], suite => $s,
                        lang => $lang, charset => $charset, cat => $cat,
                        used_langs => \@LANGUAGES, suites => \@SUITES );
-       foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
+       foreach my $ssec (sort (keys %{$subsections->{$s}}, 'virtual')) {
            next if $ssec eq '-';
            if ($sections_descs{$ssec}) {
                push @{$content{subsections}}, {