From 191ec06b38ee710f661e94e9fcf6542910c548d3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 10 Feb 2005 14:24:22 +0000
Subject: (getTVcards) rely on "multimedia/tv" category

---
 perl-install/detect_devices.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 555a141e1..1b33a4604 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -11,6 +11,7 @@ use log;
 use common;
 use devices;
 use run_program;
+use modules;
 use c;
 
 #-#####################################################################################
@@ -450,9 +451,7 @@ sub getSoundDevices() {
 
 sub isTVcard { member($_[0]{driver}, qw(bttv cx8800 saa7134 usbvision)) }
 
-sub getTVcards() { 
-    grep { isTVcard($_) } detect_devices::probeall();
-}
+sub getTVcards() { modules::probe_category('multimedia/tv') }
 
 sub getInputDevices() {
     my (@devices, $device);
-- 
cgit v1.2.1