(clean_list) split it

1 files changed, 10 insertions, 3 deletions

diff --git a/control-center b/control-center
index 6c91d78b..cac7bc5e 100755
--- a/control-center
+++ b/control-center
@@ -1219,9 +1219,8 @@ sub request_url {
 my $align = lang::text_direction_rtl() ? "right" : "justify";
 my $align2 = lang::text_direction_rtl() ? "right" : "left";
 
-foreach (@tree) {
-    my ($text, $icon, $subtree) = @$_;
-
+sub clean_list {
+    my ($subtree) = @_;
     my @subtree = grep {
         my $stuff = $_;
         my $exec = first(split /\s+/, $programs{$stuff}{binary});
@@ -1230,6 +1229,14 @@ foreach (@tree) {
         warn qq("$exec" is not executable [$stuff]) if $mdk_rel !~ /Move/ && !$is_present;
         !$programs{$stuff}{hidden} && $is_present;
     } @$subtree;
+}
+
+
+foreach (@tree) {
+    my ($text, $icon, $subtree) = @$_;
+
+    my @subtree = clean_list($subtree);
+
     # Skip empty classes:
     next if !@subtree;