From 815f5aa43dfb687031b7f40f08f497007887c81d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 23 Jun 2004 02:16:17 +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(-) diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index af19aa70f..fc07484b4 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -69,7 +69,11 @@ sub configure_auto_install { my $monitors_db = monitors_db(); foreach my $monitor (@$monitors) { - configure_automatic($monitor, $monitors_db) or put_in_hash($monitor, { HorizSync => '31.5-35.1', VertRefresh => '50-61' }); + if (!configure_automatic($monitor, $monitors_db)) { + good_default_monitor() =~ /(.*)\|(.*)/ or internal_error("bad good_default_monitor"); + put_in_hash($monitor, { VendorName => $1, ModelName => $2 }); + configure_automatic($monitor, $monitors_db) or internal_error("good_default_monitor (" . good_default_monitor() . ") is unknown in MonitorDB"); + } } $raw_X->set_monitors(@$monitors); $monitors; -- cgit v1.2.1