diff options
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) { |