From 4d9686e4dfa41e24860367877369ada47d982518 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Mar 2002 18:29:37 +0000
Subject: use formatError

---
 perl-install/diskdrake/interactive.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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($_));
     }
     !$_;
 }
-- 
cgit v1.2.1