From 24f8b57f04273cbfab21ba00b01c828a91506b9b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Feb 2000 13:18:48 +0000
Subject: no_comment

---
 perl-install/Xconfigurator.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/Xconfigurator.pm')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 8b2089120..8a567234c 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -13,7 +13,7 @@ use my_gtk qw(:wrappers);
 
 my $tmpconfig = "/tmp/Xconfig";
 
-my ($prefix, %cards, %monitors);
+my ($prefix, %monitors);
 
 1;
 
@@ -31,13 +31,10 @@ sub setVirtual($) {
 
 sub readCardsDB {
     my ($file) = @_;
-    my ($card);
-
-#    %cards and return;
+    my ($card, %cards);
 
     local *F;
     open F, $file or die "file $file not found";
-    print "readCardsDB\n";
 
     my ($lineno, $cmd, $val) = 0;
     my $fs = {
-- 
cgit v1.2.1