From 7cbc4bf960c493efcb5640500fabdd5232d6b190 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 15 Oct 2009 12:52:13 +0000
Subject: extract filter_installed_types function (to be used in drakxtools)

---
 lib/Xconfig/glx.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'lib')

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 },
-- 
cgit v1.2.1