summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-12-15 16:10:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-12-15 16:10:48 +0000
commitdf1c736e622de70cf8011b26b94cbdfcb85c3408 (patch)
tree4fd235fffe38df5e3d037b4793d8b25dc4c8703b /perl-install/Xconfigurator.pm
parent752c59eb0ab37ca75bb410052aaf40514818cd54 (diff)
downloaddrakx-backup-do-not-use-df1c736e622de70cf8011b26b94cbdfcb85c3408.tar
drakx-backup-do-not-use-df1c736e622de70cf8011b26b94cbdfcb85c3408.tar.gz
drakx-backup-do-not-use-df1c736e622de70cf8011b26b94cbdfcb85c3408.tar.bz2
drakx-backup-do-not-use-df1c736e622de70cf8011b26b94cbdfcb85c3408.tar.xz
drakx-backup-do-not-use-df1c736e622de70cf8011b26b94cbdfcb85c3408.zip
Cards+ and CardsNames are moved to ldetect-lst
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 5d0f51936..1b911fee1 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -73,16 +73,18 @@ sub readCardsDB {
\%cards;
}
sub readCardsNames {
- my $file = "/usr/X11R6/lib/X11/CardsNames";
+ my $file = "/usr/share/ldetect-lst/CardsNames";
local *F; open F, $file or die "can't find $file\n";
- map { (split '=>')[0] } <F>;
+ map { (split '=>')[0] } grep { !/^#/ } <F>;
}
sub cardName2RealName {
- my $file = "/usr/X11R6/lib/X11/CardsNames";
+ my $file = "/usr/share/ldetect-lst/CardsNames";
my ($name) = @_;
local *F; open F, $file or die "can't find $file\n";
local $_;
- while (<F>) { chop;
+ while (<F>) {
+ chop;
+ next if /^#/;
my ($name_, $real) = split '=>';
return $real if $name eq $name_;
}
@@ -90,7 +92,7 @@ sub cardName2RealName {
}
sub updateCardAccordingName {
my ($card, $name) = @_;
- my $cards = readCardsDB("/usr/X11R6/lib/X11/Cards+");
+ my $cards = readCardsDB("/usr/share/ldetect-lst/Cards+");
add2hash($card->{flags}, $cards->{$name}{flags});
add2hash($card, $cards->{$name});