From 94bec14e16b9f0364018d08beb2fbf3dfc91267d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 23 Dec 1999 17:57:03 +0000 Subject: no_comment --- perl-install/Xconfigurator.pm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'perl-install/Xconfigurator.pm') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 28f65f9d8..83ec2f678 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -281,9 +281,18 @@ sub testFinalConfig($;$$) { $skiptest || $o->{card}{server} eq 'FBDev' and return 1; #- avoid testing since untestable without reboot. - $auto - or $in->ask_yesorno(_("Test configuration"), _("Do you want to test the configuration?"), 1) - or return 1; + #- needed for bad cards not restoring cleanly framebuffer + my $bad_card = $o->{card}{identifier} =~ /i740|ViRGE/; + log::l("the graphic card does not like X in framebuffer") if $bad_card; + + my $mesg = _("Do you want to test the configuration?"); + my $def = 1; + if ($bad_card && !$::isStandalone) { + !$::expert || $auto and return 1; + $mesg = $mesg . "\n" . _("Warning: testing is dangerous on this graphic card"); + $def = 0; + } + $in->ask_yesorno(_("Test configuration"), $mesg, $def) or return 1; unlink "$prefix/tmp/.X9-lock"; -- cgit v1.2.1