From 556be252f73b0f32687b911f858ae0f65f0c48ea Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 10 Feb 2005 16:23:59 +0000
Subject: (isTVcard) better style

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 6e5e040a8..03544bf70 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -449,7 +449,7 @@ sub getSoundDevices() {
     modules::probe_category('multimedia/sound');
 }
 
-sub isTVcard { member($_->{driver}, qw(bttv saa7134)) }
+sub isTVcard { member($_[0]->{driver}, qw(bttv saa7134)) }
 
 sub getTVcards() { modules::probe_category('multimedia/tv') }
 
-- 
cgit v1.2.1