From 8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 4 Sep 2002 09:19:22 +0000
Subject: move last warning before removing tempory file in order to have a
 chance to look at them.

---
 perl-install/Xconfig/test.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/Xconfig')

diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 0648a28b1..9431f9207 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -136,11 +136,12 @@ sub test {
     my $rc = close F;
     my $err = $?;
 
+    $rc || $err == 222 << 8 or $in->ask_warn('', _("An error occurred, try to change some parameters"));
+
     unlink "$::prefix/$f", "$::prefix/$f-4";
     unlink "/tmp/.X11-unix/X9" if $::prefix;
     kill 2, $pid;
     $::noShadow = 0;
 
-    $rc || $err == 222 << 8 or $in->ask_warn('', _("An error occurred, try to change some parameters"));
     $rc;
 }
-- 
cgit v1.2.1