From 864b12e7379714fc5ffa7f13a150020fead5139c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 24 Jun 2005 11:27:35 +0000
Subject: rename isTVcard() as isTVcardConfigurable() since it's more
 meaninfull regarding its purpose

---
 perl-install/detect_devices.pm  | 2 +-
 perl-install/standalone/drakxtv | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 3e8836763..68dc485c2 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($_[0]{driver}, qw(bttv cx88 saa7134)) }
+sub isTVcardConfigurable { member($_[0]{driver}, qw(bttv cx88 saa7134)) }
 
 sub getTVcards() { modules::probe_category('multimedia/tv') }
 
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 83f175237..7b8e79838 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -115,7 +115,7 @@ sub scan4channels() {
 
 my @devices = detect_devices::getTVcards();
 push @devices, { driver => 'bttv', description => 'dummy' } if $::testing && !@devices;
-my ($devices, $devices_ok) = partition { detect_devices::isTVcard($_) } @devices;
+my ($devices, $devices_ok) = partition { detect_devices::isTVcardConfigurable($_) } @devices;
 
 my $modules_conf;
 
@@ -124,7 +124,7 @@ if (@devices = @$devices) {
     my $not_canceled = 1;
     # TODO: That need some work for multiples TV cards
     each_index {
-	   if (($< == 0 || $::testing) && (grep { detect_devices::isTVcard($_) } @devices)) {
+	   if (($< == 0 || $::testing) && (grep { detect_devices::isTVcardConfigurable($_) } @devices)) {
 		  require harddrake::v4l;
 		  require modules;
 
-- 
cgit v1.2.1