my $menuitem = $menu->{$item};
my $olabel = apply { s/.*--// } $item;
my $ml = apply { s/--.*// } $item;
- my $icon_class = apply { y/ /-/ } $item;
+ my $icon_class = apply { $_ =lc $_; s/[^a-z0-9_-]/-/g } $item;
my $spacer = "s" . (0 + $item =~ s/--/--/g);
next if $level && $item ne "$level--$olabel";