summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-24 19:20:30 +0000
commitd7c6e8b958a653501f480b1cdc02c5020306669f (patch)
tree5320f01f21e0e2d68a2b5e5cfab4f73b17d4639d /perl-install/Xconfigurator.pm
parentef80e39ba0bde1a7022c864fc092f1b6575449d8 (diff)
downloaddrakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.gz
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.bz2
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.tar.xz
drakx-d7c6e8b958a653501f480b1cdc02c5020306669f.zip
*** empty log message ***
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm7
1 files changed, 4 insertions, 3 deletions
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,