diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-10-08 10:48:20 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-10-08 10:48:20 +0000 |
| commit | c5a4cbe6c55d38bcc411bd94f088f36b85681899 (patch) | |
| tree | 42b034850992031870fc372f2e462c5606ce99d2 /perl-install | |
| parent | e6f9ebfab4e172624d4a78b447c1492fc1f36169 (diff) | |
| download | drakx-c5a4cbe6c55d38bcc411bd94f088f36b85681899.tar drakx-c5a4cbe6c55d38bcc411bd94f088f36b85681899.tar.gz drakx-c5a4cbe6c55d38bcc411bd94f088f36b85681899.tar.bz2 drakx-c5a4cbe6c55d38bcc411bd94f088f36b85681899.tar.xz drakx-c5a4cbe6c55d38bcc411bd94f088f36b85681899.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index f44a9ad21..58fb85718 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -109,8 +109,8 @@ sub getinfoFromSysconfig { sub getinfoFromDDC { my $o = shift || {}; my $O = $o->{monitor} ||= {}; - return $o if $O->{hsyncrange} && $O->{vsyncrange} && $O->{modelines}; - my ($m, @l) = `ddcxinfos`; + #- return $o if $O->{hsyncrange} && $O->{vsyncrange} && $O->{modelines}; + my ($m, @l) = `./ddcxinfos`; $? == 0 or return $o; $o->{card}{memory} ||= to_int($m); @@ -118,8 +118,8 @@ sub getinfoFromDDC { my ($depth, $x, $y) = split; $depth = int(log($depth) / log(2)); if ($depth >= 8 && $x >= 640) { - push @{$o->{card}{depth}{$depth}}, [ $x, $y ]; - push @{$o->{card}{depth}{32}}, [ $x, $y ] if $depth == 24; + push @{$o->{card}{depth}{$depth}}, [ $x, $y ] unless scalar grep { $_->[0] == $x && $_->[1] == $y } @{$o->{card}{depth}{$depth}}; + push @{$o->{card}{depth}{32}}, [ $x, $y ] if $depth == 24 && ! scalar grep { $_->[0] == $x && $_->[1] == $y } @{$o->{card}{depth}{32}}; } } my ($h, $v, $size, @m) = @l; |