print "menu \"$cat\"\n\n";
my %spkg = %{$category{$cat}};
foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
- foreach my $pkg (@{$spkg{$spkg}}) {
+ my @pkgs = sort {
+ $a->{submenu}."->".$a->{name} cmp $b->{submenu}."->".$b->{name}
+ } @{$spkg{$spkg}};
+ foreach my $pkg (@pkgs) {
if ($cur_menu ne $pkg->{submenu}) {
close_submenu();
if ($pkg->{submenu}) {