diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-03-06 18:29:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-03-06 18:29:37 +0000 |
| commit | 4d9686e4dfa41e24860367877369ada47d982518 (patch) | |
| tree | 69529af1c9504f8581786e148e8b0a40d824e53d /perl-install | |
| parent | f920585e5804bd7523a7c276c7a5fbbd05a210de (diff) | |
| download | drakx-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.pm | 6 |
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($_)); } !$_; } |