diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-09-04 09:19:22 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-09-04 09:19:22 +0000 |
| commit | 8e4fe440e29f9dc2d1db85f6fabb9aeacfb5ed68 (patch) | |
| tree | f3c17dd360c8b818dfa3a275ad56464537f33521 /perl-install | |
| parent | 0e1a2150ba3965e6986b4d5994ab085ee9b75aaf (diff) | |
| download | drakx-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.pm | 3 |
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; } |