From a7f0eabfce721301a997ba1b9829ff3a74a87352 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 May 2004 14:07:04 +0000
Subject: perl_checker compliance

---
 perl-install/Xconfig/card.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/Xconfig')

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;
-- 
cgit v1.2.1