summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-29 12:36:26 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-29 12:36:26 +0000
commit82dd39da15b27dde8f823380f8571e0a3cd63eee (patch)
treecd75e8b4d7dab6168a26f13bf27a7434247ca891 /perl-install/Xconfigurator.pm
parentb20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b (diff)
downloaddrakx-82dd39da15b27dde8f823380f8571e0a3cd63eee.tar
drakx-82dd39da15b27dde8f823380f8571e0a3cd63eee.tar.gz
drakx-82dd39da15b27dde8f823380f8571e0a3cd63eee.tar.bz2
drakx-82dd39da15b27dde8f823380f8571e0a3cd63eee.tar.xz
drakx-82dd39da15b27dde8f823380f8571e0a3cd63eee.zip
*** empty log message ***
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm13
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 7f9456216..3bedb4ecb 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -239,8 +239,8 @@ Do You want to use XFree 3.3 instead of XFree 4.0?"), 1) and $card->{driver} = '
#- hack for ATI Mach64 card where two options should be used if using Utah-GLX.
if ($card->{type} =~ /ATI Mach64/) {
- $card->{options}{no_font_cache} = $card->{Utah_glx};
- $card->{options}{no_pixmap_cache} = $card->{Utah_glx};
+ $card->{options_xf3}{no_font_cache} = $card->{Utah_glx};
+ $card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx};
}
#- 3D acceleration configuration for XFree 4.0 using DRI, this is enabled by default
@@ -264,9 +264,10 @@ sub optionsConfiguration($) {
foreach (@options) {
if ($o->{card}{server} eq $_->[1] && $o->{card}{identifier} =~ /$_->[2]/) {
- $o->{card}{options}{$_->[0]} ||= 0;
+ my $options = 'options_' . ($o->{card}{server} eq 'XFree86' ? 'xf4' : 'xf3');
+ $o->{card}{$options}{$_->[0]} ||= 0;
unless ($l{$_->[0]}) {
- push @l, $_->[0], { val => \$o->{card}{options}{$_->[0]}, type => 'bool' };
+ push @l, $_->[0], { val => \$o->{card}{$options}{$_->[0]}, type => 'bool' };
$l{$_->[0]} = 1;
}
}
@@ -886,9 +887,9 @@ EndSection
# instead of the cursor!
# Option "sw_cursor"
-);
+);
my $p = sub {
- my ($l) = @_;
+ my $l = $O->{$_[0]};
map { (!$l->{$_} && '#') . qq( Option "$_"\n) } keys %{$l || {}};
};
print F $p->('options');