summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps_interactive.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 75146eebb..f998f798d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -967,15 +967,14 @@ sub summary {
};
}
- foreach (grep { $_->{driver} =~ /(bttv|saa7134)/ } detect_devices::probeall()) {
- my $driver = $_->{driver};
+ foreach my $tv (grep { $_->{driver} =~ /(bttv|saa7134)/ } detect_devices::probeall()) {
push @l, {
group => N("Hardware"),
label => N("TV card"),
- val => sub { $_->{description} },
+ val => sub { $tv->{description} },
clicked => sub {
require harddrake::v4l;
- harddrake::v4l::config($o, $driver);
+ harddrake::v4l::config($o, $tv->{driver});
}
};
}