diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig/monitor.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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); |