summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-14 16:45:21 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-14 16:45:21 +0000
commit0b53ba66063c183f5bd5587c89c125024002c62b (patch)
tree04309d1b4ec6dc81683404ec420bf79bec3bf228 /perl-install
parent9019611d95da1c18d6fc7d96d9e2b588cf8a8b28 (diff)
downloaddrakx-0b53ba66063c183f5bd5587c89c125024002c62b.tar
drakx-0b53ba66063c183f5bd5587c89c125024002c62b.tar.gz
drakx-0b53ba66063c183f5bd5587c89c125024002c62b.tar.bz2
drakx-0b53ba66063c183f5bd5587c89c125024002c62b.tar.xz
drakx-0b53ba66063c183f5bd5587c89c125024002c62b.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm4
-rw-r--r--perl-install/Xconfigurator_consts.pm7
2 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 63d0837a0..4fedaa22c 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -2,7 +2,7 @@ package Xconfigurator;
use diagnostics;
use strict;
-use vars qw($in $install $resolution_wanted @depths %depths @resolutions @accelservers @allservers %videomemory @ramdac_name @ramdac_id @clockchip_name @clockchip_id %keymap_translate @vsync_range %standard_monitors $intro_text $finalcomment_text $s3_comment $cirrus_comment $probeonlywarning_text $monitorintro_text $hsyncintro_text $vsyncintro_text $XF86firstchunk_text $keyboardsection_start $keyboardsection_part2 $keyboardsection_end $pointersection_text1 $pointersection_text2 $monitorsection_text1 $monitorsection_text2 $monitorsection_text3 $monitorsection_text4 $modelines_text_Trident_TG_96xx $modelines_text $devicesection_text $screensection_text1);
+use vars qw($in $install $resolution_wanted @depths %depths @resolutions @svgaservers @accelservers @allservers %videomemory @ramdac_name @ramdac_id @clockchip_name @clockchip_id %keymap_translate @vsync_range %standard_monitors $intro_text $finalcomment_text $s3_comment $cirrus_comment $probeonlywarning_text $monitorintro_text $hsyncintro_text $vsyncintro_text $XF86firstchunk_text $keyboardsection_start $keyboardsection_part2 $keyboardsection_end $pointersection_text1 $pointersection_text2 $monitorsection_text1 $monitorsection_text2 $monitorsection_text3 $monitorsection_text4 $modelines_text_Trident_TG_96xx $modelines_text $devicesection_text $screensection_text1);
use pci_probing::main;
use common qw(:common :file);
@@ -574,7 +574,7 @@ Section "Screen"
# The Colour SVGA server
);
- if ($O->{server} eq 'SVGA') {
+ if (member($O->{server}, @svgaservers)) {
&$screen("svga", $O->{default_depth}, $O->{type}, $O->{depth});
} else {
&$screen("svga", '', "Generic VGA", { 8 => [[ 320, 200 ]] });
diff --git a/perl-install/Xconfigurator_consts.pm b/perl-install/Xconfigurator_consts.pm
index b279bbde9..97280f36d 100644
--- a/perl-install/Xconfigurator_consts.pm
+++ b/perl-install/Xconfigurator_consts.pm
@@ -12,8 +12,9 @@ use common qw(:common);
$resolution_wanted = "1024x768";
@resolutions = qw(640x480 800x600 1024x768 1152x864 1280x1024 1600x1200);
-@accelservers = qw(S3 Mach32 Mach8 8514 P9000 AGX W32 Mach64 Rage128 I128 S3V 3DLabs);
-@allservers = (qw(Mono VGA16 SVGA), @accelservers);
+@svgaservers = qw(SVGA Rage128);
+@accelservers = qw(S3 Mach32 Mach8 8514 P9000 AGX W32 Mach64 I128 S3V 3DLabs);
+@allservers = (qw(Mono VGA16), @svgaservers, @accelservers);
%videomemory = (
__("256 kb") => 256,
@@ -544,7 +545,7 @@ Section "Device"
EndSection
-# Device configured by Xconfigurator:
+# Device auto configured:
';
$screensection_text1 = '