diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig/monitor.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 38fa8b3d9..00e8271c8 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -64,7 +64,11 @@ sub configure_auto_install { put_in_hash($monitor, $old_monitor); my $monitors = monitors(); - configure_automatic($monitor, $monitors) or put_in_hash($monitor, { HorizSync => '31.5-35.1', VertRefresh => '50-61' }); + if (!configure_automatic($monitor, $monitors)) { + good_default_monitor() =~ /(.*)\|(.*)/ or internal_error("bad good_default_monitor"); + put_in_hash($monitor, { VendorName => $1, ModelName => $2 }); + configure_automatic($monitor, $monitors) or internal_error("good_default_monitor (" . good_default_monitor() . ") is unknown in MonitorDB"); + } $raw_X->set_monitors($monitor); $monitor; } |