summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-05-11 14:07:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-05-11 14:07:04 +0000
commita7f0eabfce721301a997ba1b9829ff3a74a87352 (patch)
tree0cdd8bcdc32c12e62a21f78a368073b0b925fdc4 /perl-install
parentf049a6664316878527f8420746ace5bbe382f3cb (diff)
downloaddrakx-a7f0eabfce721301a997ba1b9829ff3a74a87352.tar
drakx-a7f0eabfce721301a997ba1b9829ff3a74a87352.tar.gz
drakx-a7f0eabfce721301a997ba1b9829ff3a74a87352.tar.bz2
drakx-a7f0eabfce721301a997ba1b9829ff3a74a87352.tar.xz
drakx-a7f0eabfce721301a997ba1b9829ff3a74a87352.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/card.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm
index 7c858589b..ec18eea31 100644
--- a/perl-install/Xconfig/card.pm
+++ b/perl-install/Xconfig/card.pm
@@ -458,7 +458,8 @@ sub readCardsDB {
my $F = openFileMaybeCompressed($file);
- my ($lineno, $cmd, $val) = 0;
+ my $lineno = 0;
+ my ($cmd, $val);
my $fs = {
NAME => sub {
$cards{$card->{card_name}} = $card if $card;