From d7c6e8b958a653501f480b1cdc02c5020306669f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 24 Nov 1999 19:20:30 +0000
Subject: *** empty log message ***

---
 perl-install/Xconfigurator.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 7f8749cce..7e9bdb8b6 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -305,14 +305,15 @@ sub testFinalConfig($;$) {
     do { sleep 1 } until c::Xtest(":9") || waitpid($pid, c::WNOHANG());
 
     my $b = before_leaving { unlink $f_err };
-    
+
+    local $_;
     local *F; open F, $f_err;
     while (<F>) {
 	if (/\b(error|not supported)\b/i) {
-	    my @msg = !/error/ && $_ ; 
+	    my @msg = !/error/ && $_ ;
 	    while (<F>) {
 		/^$/ and last;
-		push @msg, $_;		
+		push @msg, $_;
 	    }
 	    $in->ask_warn('', [ _("An error occurred:"), " ",
 				@msg,
-- 
cgit v1.2.1