summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-06 18:29:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-06 18:29:37 +0000
commit4d9686e4dfa41e24860367877369ada47d982518 (patch)
tree69529af1c9504f8581786e148e8b0a40d824e53d /perl-install
parentf920585e5804bd7523a7c276c7a5fbbd05a210de (diff)
downloaddrakx-4d9686e4dfa41e24860367877369ada47d982518.tar
drakx-4d9686e4dfa41e24860367877369ada47d982518.tar.gz
drakx-4d9686e4dfa41e24860367877369ada47d982518.tar.bz2
drakx-4d9686e4dfa41e24860367877369ada47d982518.tar.xz
drakx-4d9686e4dfa41e24860367877369ada47d982518.zip
use formatError
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index b4072ec4a..20614c4b7 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -232,9 +232,9 @@ sub Wizard {
sub Done {
my ($in, $all_hds) = @_;
eval { raid::verify($all_hds->{raids}) };
- if ($@) {
+ if (my $err = $@) {
$::expert or die;
- $in->ask_okcancel('', [ $@, _("Continue anyway?")]) or return;
+ $in->ask_okcancel('', [ formatError($err), _("Continue anyway?")]) or return;
}
foreach (@{$all_hds->{hds}}) {
if (!write_partitions($in, $_)) {
@@ -935,7 +935,7 @@ No bootloader is able to handle this without a /boot partition.
So be careful to add a /boot partition"));
undef $_;
} elsif ($_) {
- $in->ask_warn('', $_);
+ $in->ask_warn('', formatError($_));
}
!$_;
}