diff options
| -rw-r--r-- | lib/Xconfig/glx.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/Xconfig/glx.pm b/lib/Xconfig/glx.pm index ceb5bd3..5a8034c 100644 --- a/lib/Xconfig/glx.pm +++ b/lib/Xconfig/glx.pm @@ -188,13 +188,18 @@ sub detect_types { \@available_types, $type; } +sub filter_installed_types { + my ($types) = @_; + grep { + !$_->{wms} || -e '/usr/bin/' . first(@{$_->{wms}}) + } @$types; +} + sub choose_interactive { my ($in, $glx, $o_installed_only) = @_; my ($available, $type) = detect_types($glx); - @$available = grep { - !$_->{wms} || -e '/usr/bin/' . first(@{$_->{wms}}) - } @$available if $o_installed_only; + @$available = filter_installed_types($available) if $o_installed_only; $in->ask_from_({ title => N("3D Desktop effects") }, [ { label => N("3D Desktop effects"), title => 1 }, |