summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig.pm8
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;