summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-23 15:31:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-23 15:31:58 +0000
commitb0203771a3788760ac7f2041ed8a633de00cc0a9 (patch)
tree823a5bf0d07511099795ce3d10b131e9b202be25 /perl-install
parent9f1a11f6213832fc9c7a715c0510068856f56564 (diff)
downloaddrakx-b0203771a3788760ac7f2041ed8a633de00cc0a9.tar
drakx-b0203771a3788760ac7f2041ed8a633de00cc0a9.tar.gz
drakx-b0203771a3788760ac7f2041ed8a633de00cc0a9.tar.bz2
drakx-b0203771a3788760ac7f2041ed8a633de00cc0a9.tar.xz
drakx-b0203771a3788760ac7f2041ed8a633de00cc0a9.zip
enable use of gzip'ed Cards+, CardsNames and MonitorsDB
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm18
1 files changed, 7 insertions, 11 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 3959241b5..701ba190e 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -31,8 +31,7 @@ sub readCardsDB {
my ($file) = @_;
my ($card, %cards);
- local *F;
- open F, $file or die "file $file not found";
+ my $F = common::openFileMaybeCompressed($file);
my ($lineno, $cmd, $val) = 0;
my $fs = {
@@ -64,7 +63,7 @@ sub readCardsDB {
};
local $_;
- while (<F>) { $lineno++;
+ while (<$F>) { $lineno++;
s/\s+$//;
/^#/ and next;
/^$/ and next;
@@ -80,15 +79,12 @@ sub readCardsDB {
}
sub readCardsNames {
my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
- local *F; open F, $file or die "can't find $file\n";
- map { (split '=>')[0] } grep { !/^#/ } <F>;
+ map { (split '=>')[0] } grep { !/^#/ } catMaybeCompressed($file);
}
sub cardName2RealName {
- my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
my ($name) = @_;
- local *F; open F, $file or die "can't find $file\n";
- local $_;
- while (<F>) {
+ my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
+ foreach (catMaybeCompressed($file)) {
chop;
next if /^#/;
my ($name_, $real) = split '=>';
@@ -110,9 +106,9 @@ sub readMonitorsDB {
%monitors and return;
- local *F; open F, $file or die "can't open monitors database ($file): $!";
+ my $F = common::openFileMaybeCompressed($file);
local $_;
- my $lineno = 0; while (<F>) {
+ my $lineno = 0; while (<$F>) {
$lineno++;
s/\s+$//;
/^#/ and next;