summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakxtv6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index dc267258a..1a50920d1 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -131,17 +131,17 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
my @devices = grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' || $_->{driver} eq 'usbvision' } detect_devices::probeall();
push @devices, { driver => 'bttv', description => 'dummy' } if $::testing && !@devices;
if (@devices) {
+ my $not_canceled = 1;
# TODO: That need some work for multiples TV cards
foreach (@devices) {
if ($< == 0 && (grep { detect_devices::isTVcard($_) } @devices)) {
require harddrake::v4l;
require modules;
- no strict 'subs';
modules::read_conf();
- harddrake::v4l::config($in, $_->{driver});
+ $not_canceled &&= harddrake::v4l::config($in, $_->{driver});
modules::write_conf();
}
- scan4channels();
+ scan4channels() if $not_canceled;
}
} else {
$in->ask_warn(N("No TV Card detected!"), formatAlaTeX(