From 80428896706c7e7943ea36a48d401314cd7c981a Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 19 Sep 2002 13:29:10 +0000
Subject: fix titisucks making cards choice in bttv dialog unavailable

---
 perl-install/install_steps_interactive.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d49d40729..d3abbdee4 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1029,10 +1029,13 @@ sub summary {
      } @sound_cards),
     if_($isa_sound_card, { label => _("Sound card"), clicked => $isa_sound_card }), 
     (map {
-{ label => _("TV card"), val => $_->{description}, clicked => sub { 
-      require harddrake::v4l; 
-      harddrake::v4l::config($o, $_->{driver});
-} } } grep { $_->{driver} =~ '(bttv|saa7134)' } detect_devices::probeall()),
+	my $driver = $_->{driver};
+	{ label => _("TV card"), val => $_->{description}, clicked => sub { 
+	      require harddrake::v4l; 
+	      harddrake::v4l::config($o, $driver);
+	  }
+        }
+    } grep { $_->{driver} =~ '(bttv|saa7134)' } detect_devices::probeall()),
 ]);
     install_steps::configureTimezone($o);  #- do not forget it.
 }
-- 
cgit v1.2.1