summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-04 09:19:22 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-04 09:19:22 +0000
commit8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68 (patch)
treef3c17dd360c8b818dfa3a275ad56464537f33521 /perl-install
parent0e1a2150ba3965e6986b4d5994ab085ee9b75aaf (diff)
downloaddrakx-8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68.tar
drakx-8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68.tar.gz
drakx-8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68.tar.bz2
drakx-8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68.tar.xz
drakx-8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68.zip
move last warning before removing tempory file in order to have a chance to look
at them.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/test.pm3
1 files changed, 2 insertions, 1 deletions
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;
}