summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakxtv
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-01 17:01:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-01 17:01:33 +0000
commit834a4c9b562d33ab6791e5fcde77bfa7246af223 (patch)
tree05037b4835d8c87966238de3bb4f2ce89646bb2a /perl-install/standalone/drakxtv
parent14c1bc0397b5d37b984e992ec126452f708f2046 (diff)
downloaddrakx-backup-do-not-use-834a4c9b562d33ab6791e5fcde77bfa7246af223.tar
drakx-backup-do-not-use-834a4c9b562d33ab6791e5fcde77bfa7246af223.tar.gz
drakx-backup-do-not-use-834a4c9b562d33ab6791e5fcde77bfa7246af223.tar.bz2
drakx-backup-do-not-use-834a4c9b562d33ab6791e5fcde77bfa7246af223.tar.xz
drakx-backup-do-not-use-834a4c9b562d33ab6791e5fcde77bfa7246af223.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakxtv')
-rwxr-xr-xperl-install/standalone/drakxtv14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index ec02ba537..1990c64f0 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -81,7 +81,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
# default to pal since most people use that
$norm = "PAL";
- if("@ARGV" !~ /--help|-h/) {
+ if ("@ARGV" !~ /--help|-h/) {
my %countries =
(
"ar" => [ "argentina" ],
@@ -111,7 +111,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
if ($in->ask_from("TVdrake", _("Please,\ntype in your tv norm and country"),
[
- { label => _("TV norm :"), val => \$norm, list => ["NTSC", "NTSC-JP","PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM"], type => 'combo'},
+ { label => _("TV norm :"), val => \$norm, list => ["NTSC", "NTSC-JP","PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM"], type => 'combo' },
{ label => _("Area :"), val => \$ftable_id, list => [keys %freqtables], format => sub { $freqtables{$_[0]} }, sort => 1},
]
))
@@ -121,14 +121,14 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
# will be ignored since "All" is selected (because of -a)
$ftable_id = "france -a " if ($ftable_id eq -1);
# Note that this'll be broken if/when we implement interactive::qt
- my $use_X =$in->isa('interactive::gtk') && -x "/usr/X11R6/bin/xvt";
+ my $use_X = $in->isa('interactive::gtk') && -x "/usr/X11R6/bin/xvt";
my $home = $ENV{HOME};
- my $i=system ( (($use_X ) ?
+ my $i = system ( (($use_X) ?
"xvt -T '"._("Scanning for TV channels")." ...' -e ":"")
- . "scantv -n $norm -f $ftable_id -o $home/.xawtv".(($use_X )?"":" &>$home/tmp/scantv.log;"));
+ . "scantv -n $norm -f $ftable_id -o $home/.xawtv".(($use_X)?"":" &>$home/tmp/scantv.log;"));
if ($i) {
$in->ask_warn(_("There was an error while scanning for TV channels"),
- _("XawTV isn't installed!")); }
+ _("XawTV isn't installed!")) }
else {
standalone::explanations("created file $home/.xawtv");
$in->ask_warn(_("Have a nice day!"),
@@ -142,7 +142,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
my @devices = detect_devices::probeall(1);
if (grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' } @devices) {
if (($< == 0) && (grep { $_->{driver} eq 'bttv' } @devices)) {
- use harddrake::bttv;
+ require harddrake::bttv;
modules::read_conf;
harddrake::bttv::config($in);
modules::write_conf;