From 5a4e6d315a7eaa1bbbc6010bb8161e8f6b08b150 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 23 Jun 2004 02:19:21 +0000 Subject: good_default_monitor() should work *nearly* everywhere, so use it for the auto_install fallback (this is used by mandrakemove) --- perl-install/Xconfig/monitor.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/Xconfig') 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; } -- cgit v1.2.1