diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-08-08 12:53:37 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-08 12:53:37 +0000 |
commit | fcf16d01f95380516a9a138072109c76061ca4ae (patch) | |
tree | a60100cb392feca453b009a88735f14e3048e6aa | |
parent | 92ca8cecc90b06288a767d40573e24b791935d75 (diff) | |
download | control-center-fcf16d01f95380516a9a138072109c76061ca4ae.tar control-center-fcf16d01f95380516a9a138072109c76061ca4ae.tar.gz control-center-fcf16d01f95380516a9a138072109c76061ca4ae.tar.bz2 control-center-fcf16d01f95380516a9a138072109c76061ca4ae.tar.xz control-center-fcf16d01f95380516a9a138072109c76061ca4ae.zip |
(clean_list) split it
-rwxr-xr-x | control-center | 13 |
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; |