From f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Jan 2002 20:31:52 +0000
Subject: cleanup error messages (and fix diskdrake's)

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b4b6f75e7..2cce2ee31 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -954,7 +954,7 @@ sub getHds {
     my $all_hds = catch_cdie { fsedit::hds(\@drives, $flags) }
       sub {
 	  $ok = 0;
-	  my $err = $@; $err =~ s/ at (.*?)$//;
+	  my $err = formatError($@);
 	  log::l("error reading partition table: $err");
 	  !$flags->{readonly} && $f_err and $f_err->($err);
       };
-- 
cgit v1.2.1