diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-12-15 16:10:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-12-15 16:10:48 +0000 |
| commit | df1c736e622de70cf8011b26b94cbdfcb85c3408 (patch) | |
| tree | 4fd235fffe38df5e3d037b4793d8b25dc4c8703b /perl-install/Xconfigurator.pm | |
| parent | 752c59eb0ab37ca75bb410052aaf40514818cd54 (diff) | |
| download | drakx-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.pm | 12 |
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}); |