From fe224251aa0fe2285b7b1eda762e5b18ddee07a0 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 6 Oct 1999 17:52:58 +0000 Subject: *** empty log message *** --- perl-install/Xconfig.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/Xconfig.pm') diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index 6158873df..f44a9ad21 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -71,10 +71,11 @@ sub getinfoFromXF86Config { $o->{monitor}{vsyncrange} ||= $1 if /^\s*VertRefresh\s+(.*)/; $o->{monitor}{vendor} ||= $1 if /^\s*VendorName\s+"(.*?)"/; $o->{monitor}{model} ||= $1 if /^\s*ModelName\s+"(.*?)"/; + $o->{monitor}{modelines} .= $_ if /^\s*Mode[lL]ine\s+/; } elsif (my $s = /^Section "Screen"/ .. /^EndSection/) { $driver = undef if $s == 1; $driver = $1 if /^\s*Driver\s+"(.*?)"/; - print "($driver eq $Xconfigurator::serversdriver{$o->{card}{server}})"; + #- print "($driver eq $Xconfigurator::serversdriver{$o->{card}{server}})"; if ($driver eq $Xconfigurator::serversdriver{$o->{card}{server}}) { #- take into account the right screen section for the server. $o->{card}{default_depth} ||= $1 if /^\s*DefaultColorDepth\s+(\d+)/; if (my $i = /^\s*Subsection\s+"Display"/ .. /^\s*EndSubsection/) { -- cgit v1.2.1