From 09ce39100a56325604e7d3945a4ed47ce88ef167 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 25 Nov 2003 10:56:08 +0000 Subject: fix destroying HorizSync & VertRefresh (especially when coming from ddcxinfos with unknown EISA_ID) --- perl-install/Xconfig/monitor.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 27475c0d1..520b6f1e4 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -54,8 +54,11 @@ sub configure_auto_install { my ($raw_X, $old_X) = @_; my $old_monitor = $old_X->{monitor} || {}; - $old_monitor->{VertRefresh} ||= $old_monitor->{vsyncrange}; - $old_monitor->{HorizSync} ||= $old_monitor->{hsyncrange}; + my %rename = (vsyncrange => 'VertRefresh', hsyncrange => 'HorizSync'); + foreach (keys %rename) { + my $v = $old_monitor->{$_} or next; + $old_monitor->{$rename{$_}} = $v; + } my $monitor = from_raw_X($raw_X); put_in_hash($monitor, $old_monitor); -- cgit v1.2.1