From 917834ae3e027da1e071aa2989f8705d05acbde6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 16 Mar 2001 17:01:52 +0000 Subject: (setPackages): set flag "TV" when bttv hardware is there --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index d12523340..4c03f888d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -320,10 +320,10 @@ sub setPackages { if ($::auto_install && !$o->{compssUsersChoice}) { $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}}; } + $o->{compssUsersChoice}{TV} = 1 if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); $o->{compssUsersChoice}{SYSTEM} = 1; $o->{compssUsersChoice}{BURNER} = 1 if detect_devices::burners(); $o->{compssUsersChoice}{PCMCIA} = 1 if detect_devices::hasPCMCIA(); - $o->{compssUsersChoice}{'3D'} = 1 if detect_devices::matching_desc('Matrox.* G[24]00') || detect_devices::matching_desc('Riva.*128') || -- cgit v1.2.1