From 4ce69234e573c58002f3d1a9f361489410e883b2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 9 Feb 2000 11:38:02 +0000
Subject: no_comment

---
 perl-install/Xconfigurator.pm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'perl-install/Xconfigurator.pm')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index c8d94f082..fd73f0a3f 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -327,20 +327,20 @@ sub testFinalConfig($;$$) {
 
     my $b = before_leaving { unlink $f_err };
 
-    local $_;
-    local *F; open F, $f_err;
-    i: while (<F>) {
-	if (/\b(error|not supported)\b/i) {
-	    my @msg = !/error/ && $_ ;
-	    while (<F>) {
-		/not fatal/ and last i;
-		/^$/ and last;
-		push @msg, $_;
+    unless (c::Xtest(":9")) {
+	local $_;
+	local *F; open F, $f_err;
+      i: while (<F>) {
+	    if (/\b(error|not supported)\b/i) {
+		my @msg = !/error/ && $_ ;
+		while (<F>) {
+		    /not fatal/ and last i;
+		    /^$/ and last;
+		    push @msg, $_;
+		}
+		$in->ask_warn('', [ _("An error occurred:"), " ", @msg, _("\ntry changing some parameters") ]);
+		return 0;
 	    }
-	    $in->ask_warn('', [ _("An error occurred:"), " ",
-				@msg,
-				_("\ntry changing some parameters") ]);
-	    return 0;
 	}
     }
 
-- 
cgit v1.2.1