summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-15 18:04:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-15 18:04:01 +0000
commit728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2 (patch)
treef9ecf6c420db9e59b900ec70611ac1c0e372cf97 /perl-install/install_steps_interactive.pm
parentbdbaca5db5f1c8bd30de9c786375fdb5185ff71f (diff)
downloaddrakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.gz
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.bz2
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.xz
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.zip
find error in /tmp/.error only if exception is "xxx failed"
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e53ec8c5b..41356adc2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1066,7 +1066,8 @@ try to force installation even if that destroys the first partition?"));
my $w = $o->wait_message('', _("Installing bootloader"));
eval { $o->SUPER::setupBootloader };
}
- if ($@) {
+ if ($err = $@) {
+ $err =~ /failed$/ or die;
$o->ask_warn('',
[ _("Installation of bootloader failed. The following error occured:"),
grep { !/^Warning:/ } cat_("$o->{prefix}/tmp/.error") ]);