diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-02-23 12:57:37 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-02-23 12:57:37 +0000 |
commit | 24dda9b78fbe61e569bfb65818b823a4f65af87d (patch) | |
tree | 7fbab1ee6e6c2b71ab64d89e077b09c0f936a8df /perl-install/install_steps_gtk.pm | |
parent | c19d700d0608cba8d8d208238846b94505612c29 (diff) | |
download | drakx-24dda9b78fbe61e569bfb65818b823a4f65af87d.tar drakx-24dda9b78fbe61e569bfb65818b823a4f65af87d.tar.gz drakx-24dda9b78fbe61e569bfb65818b823a4f65af87d.tar.bz2 drakx-24dda9b78fbe61e569bfb65818b823a4f65af87d.tar.xz drakx-24dda9b78fbe61e569bfb65818b823a4f65af87d.zip |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 84bb2f057..b3564c3d6 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -193,7 +193,13 @@ sub new($$) { 0; }; my @servers = qw(FBDev VGA16); #-) - @servers = qw(SVGA 3DLabs TGA) if arch() eq "alpha"; + if (arch() eq "alpha") { + require Xconfigurator; + my $card = Xconfigurator::cardConfigurationAuto(); + add2hash($card, Xconfigurator::cardName2card($card->{type})) if $card && $card->{type}; + @servers = $card->{server} || "TGA"; + #-@servers = qw(SVGA 3DLabs TGA) + } @servers = qw(Mach64) if arch() =~ /^sparc/; foreach (@servers) { |