summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-08 09:11:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-08 09:11:05 +0000
commit28487c071ae64c6700d90c0dc107831322df2276 (patch)
treeee6c311280127a519c6c2484db63f696e63d4a25 /perl-install/standalone
parent01f8d8cd62be55c58f38781093f80f3ac377ebb4 (diff)
downloaddrakx-backup-do-not-use-28487c071ae64c6700d90c0dc107831322df2276.tar
drakx-backup-do-not-use-28487c071ae64c6700d90c0dc107831322df2276.tar.gz
drakx-backup-do-not-use-28487c071ae64c6700d90c0dc107831322df2276.tar.bz2
drakx-backup-do-not-use-28487c071ae64c6700d90c0dc107831322df2276.tar.xz
drakx-backup-do-not-use-28487c071ae64c6700d90c0dc107831322df2276.zip
- fix options handling
- use "perl -w" - s/bttv/harddrake::bttv/ due to recent changes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakxtv11
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 00f0c43a0..16b64ecec 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# DrakxTV
# $Id$
@@ -35,9 +35,9 @@ use lang;
use log;
use common;
-/-h/ and die "usage: drakxtv [-h] [--help] [--no-guess]\n";
+("@ARGV" =~ /--help|-h/) and die "usage: drakxtv [-h] [--help] [--no-guess]\n";
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+#$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
my $in = 'interactive'->vnew();
sub scan4channels {
@@ -81,8 +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(! /--no-guess/) {
+ if("@ARGV" !~ /--help|-h/) {
my %countries =
(
"ar" => [ "argentina" ],
@@ -144,7 +143,7 @@ my @devices = detect_devices::probeall(1);
if (grep { $_->{media_type} eq 'MULTIMEDIA_VIDEO' } @devices) {
if (($< == 0) && (grep { $_->{driver} eq 'bttv' } @devices)) {
use harddrake::bttv;
- bttv::config($in);
+ harddrake::bttv::config($in);
}
scan4channels();
$in->exit(0);