summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Xconfig/glx.pm11
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 },