diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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); |